三种文件及打开文件的方法,要详细了解可看开发指南 文本文件: var YouFile:TextFile; begin AssignFile(YouFile,'FileName'); ReSet(YouFile); try //操作 finally ColseFile(YouFile); end; end; 类型文件: var Rec:TYouRec; YouDataFile:File of TYouRec; begin AssignFile(YouDataFile,'filename'); Reset(YouDataFile); try if not Eof(YouDataFile) then read(YouDataFile,Rec); finally CloseFile(YouDataFile); end; end; 二进制文件: var YouBFile:File; begin AssignFile(YouBFile,'FileName'); Reset(YouBFile); try BlockRead(YouBFile,Buffer,1,Num); finally closefile(YouBFile); end; end;
文本文件:
var
YouFile:TextFile;
begin
AssignFile(YouFile,'FileName');
ReSet(YouFile);
try
//操作
finally
ColseFile(YouFile);
end;
end;
类型文件:
var
Rec:TYouRec;
YouDataFile:File of TYouRec;
begin
AssignFile(YouDataFile,'filename');
Reset(YouDataFile);
try
if not Eof(YouDataFile) then
read(YouDataFile,Rec);
finally
CloseFile(YouDataFile);
end;
end;
二进制文件:
var
YouBFile:File;
begin
AssignFile(YouBFile,'FileName');
Reset(YouBFile);
try
BlockRead(YouBFile,Buffer,1,Num);
finally
closefile(YouBFile);
end;
end;