delphi7 读写txt

最新推荐文章于 2025-01-13 20:17:04 发布

3cts

最新推荐文章于 2025-01-13 20:17:04 发布

阅读量2k

点赞数

分类专栏： Delphi技术文章标签： delphi

本文链接：https://blog.youkuaiyun.com/3cts/article/details/7362676

版权

Delphi技术专栏收录该内容

7 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;