TYPE
Temployee = record
name : string[10];
address : string[50];
end;
TemployeeFile = File Of Temployee;
var
EmployeeFile : TemployeeFile;
如何将多个记录以记录文件类型保存在文件中并依次读出?偶忘光了,手上也没资料了,哦了
...全文
768打赏收藏
Delphi中的记录文件类型如何保存读取?
TYPE Temployee = record name : string[10]; address : string[50]; end; TemployeeFile = File Of Temployee; var EmployeeFile : TemployeeFile; 如何将多个记录以记录文件类型保存在文件中并依次读出?偶忘光了,手上也没资料了,哦了
function DelRecNo(FileName:string;RecNo:Integer):Boolean;
//删除第 RecNo条,第一条为 0
var
Svr:Temployee;
f:file of TTemployee;
n,i:integer;
begin
Result:=false;
if not(FileExists(FileName)) then exit;
AssignFile(f,FileName);
FileMode:=2;
reset(f);
n:=fileSize(f);
if (RecNo>=n) or (RecNo<0) then
begin
closeFile(f);
exit;
end;
for i:=n-1 downto RecNo+1 do
begin
seek(f,i);
Read(f,svr);
seek(f,i-1);
write(f,svr);
end;
seek(f,n-1);
Truncate(f);
closeFile(f);
Result:=true;
end;
下列代码用来向文件中追加一条记录:
var
PersonRec:TPersonRec;
DataFile:File of TPersonRec;
begin
AssignFile(DataFile, 'PersonS.dat');
// Open the file for read access.
Reset(DataFileF);
Seek(DataFile,FileSize(DataFile));
try
Write(DataFile,PersonRec);
finally
CloseFile(DataFile); // Close the file when finished.
end;
end;