delphi7 读写txt

最新推荐文章于 2023-04-11 14:02:05 发布

原创最新推荐文章于 2023-04-11 14:02:05 发布 · 2.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi技术专栏收录该内容

7 篇文章

订阅专栏

本文提供了一个使用Delphi进行文件操作的简单示例，包括创建文件、向文件写入内容以及从文件读取内容的过程。通过三个具体的程序段展示了如何实现这些基本的文件操作。

procedure TForm1.newClick(Sender: TObject);
var
f:textfile;
filename:string;
begin
filename:='a.txt';
if not fileexists(filename) then
begin
    assignfile(f,filename);
    rewrite(f);
    closefile(f);
    e.Text:='ok';
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
f:textfile;
filename:string;
begin
filename:='a.txt';
assignfile(f,filename);
rewrite(f);
writeln(f,'aa');
closefile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
filename:string;
str:string;
begin
filename:='a.txt';
assignfile(f,filename);
reset(f);
readln(f,str);
closefile(f);
e.Text:=str;
end;