S
scorpions
Unregistered / Unconfirmed
GUEST, unregistred user!
添加数据如下，怎样删除数据呢？
Ttest=packed record
id:string[10];
name:string[20];
end;
var
test:Ttest;
TestFile:file of Ttest;
begin
Assignfile(testfile,'test.dat');
reset(testfile);
seek(testfile,filesize(testfile));
write(testfile,test);
closefile(testfile);
end;
我的程序是呼叫中心坐席组管理监控程序，要把所有呼叫记录保存到文件里。
所以记录很多，读数据库太慢所以要用文件（数据库和文件都用）。
但不知怎么删除文件中的记录。用paradox合适吗？
不知大家还有什么好建议？？？
Ttest=packed record
id:string[10];
name:string[20];
end;
var
test:Ttest;
TestFile:file of Ttest;
begin
Assignfile(testfile,'test.dat');
reset(testfile);
seek(testfile,filesize(testfile));
write(testfile,test);
closefile(testfile);
end;
我的程序是呼叫中心坐席组管理监控程序，要把所有呼叫记录保存到文件里。
所以记录很多，读数据库太慢所以要用文件（数据库和文件都用）。
但不知怎么删除文件中的记录。用paradox合适吗？
不知大家还有什么好建议？？？