procedure SaveToFile(const AFileName,
AContent: string);
var
AStrs: TStrings;
begin
AStrs := TStringList.Create;
try
AStrs.Text := AContent;
AStrs.SaveToFile(AFileName);
finally
AStrs.Free
end;
end;
AContent: string);
var
AStrs: TStrings;
begin
AStrs := TStringList.Create;
try
AStrs.Text := AContent;
AStrs.SaveToFile(AFileName);
finally
AStrs.Free
end;
end;
MYTEXT:FILETEXT;
BEGIN
ASSIGNFILE(MYTEXT,'C:\MYFILE.TXT');
IF NOT EXISTSFILE('C:\MYFILE.TXT') THEN
REWRITE(MYTEXT)
ELSE
APPEND(MYTEXT);
……// 执行读写
CLOSEFILE(MYTEXT);
END;