str: String; file1: TextFile; //写 assignfile(file1,'f:\static.txt'); if FileExists('f:\static.txt') then Append(file1) else ReWrite(file1); WriteLn(file1,str); WriteLn(file1,str); CloseFile(file1); //读 if FileExists('f:\static.txt') then begin assignfile(file1,'f:\static.txt'); Reset(file1); Readln(file1,str); CloseFile(file1);
file1: TextFile;
//写
assignfile(file1,'f:\static.txt');
if FileExists('f:\static.txt') then
Append(file1)
else
ReWrite(file1);
WriteLn(file1,str);
WriteLn(file1,str);
CloseFile(file1); //读
if FileExists('f:\static.txt') then
begin
assignfile(file1,'f:\static.txt');
Reset(file1);
Readln(file1,str);
CloseFile(file1);