Delphi_TXT读取和写入

2024年4月30日发(作者：)

DelphiTXT文件读取和写入操作

//关联文件

AssignFile(F,FileName);

//txt文件不存在情况下进行创建

if not FileExists(FileName) then

Rewrite(F);

//写文件

Append(F);

Writeln(F,str);

//读文件

Reset(F);

Readln(F,S);

//关闭文件

Closefile(F);

function nique(str:String):Boolean;

var

s:String;

begin

Result:=True;

//AssignFile(F,FileName);

Reset(F);

while not EOF(F) do

begin

Readln(F,S);

if str=s then

begin

Result:=False;

Exit;

end;

end;

end;

procedure 2Click(Sender: TObject);

var

str:String;

i:Integer;

begin

str:='1111';

FileName:=GetCurrentDir+'';

AssignFile(F,FileName);

if not FileExists(FileName) then

Rewrite(F);

i:=0;

repeat

if CheckUnique(str) then

begin

Append(F);

Writeln(F,str);

inc(i);

(str);

str:=IntToStr(StrToInt(str)+i);

end

else

begin

ShowMessage('Not Unique');

inc(i);

str:=IntToStr(StrToInt(str)+i);

end;

until i>10;

Closefile(F);

ShowMessage('OK');

end;