delphi assert_assign的用法大全

1.文本文件新建和读取使用

在窗体放一个按钮，点击输入

procedure TForm1.Button1Click(Sender: TObject);
var
bat : textfile;
begin
assignfile(bat, ‘c:\123.txt’); //新建并打开文件
rewrite(bat); //Rewrite 过程能创建一个新文件并打开它；使用Reset 打开的
                         //文本文件是只读的，使用Rewrite 和Append 打开的文本文件只能写入
writeln(bat, ‘1111111111111111’); //写入数据
closefile(bat); //关闭文件
end;

//这样在C盘就新建一个123.txt的文本文件，并写入1111111111111111的数据。

2.读取文本文件

procedure TForm1.Button1Click(Sender: TObject);
var
bat : textfile;
s : string;
begin
assignfile(bat,’c:\123123.bat’);
reset(bat);
readln(bat,s);
memo1.Lines.Add(s);
closefile(bat);
end;

Procedure or

function
Description
Append
打开存在的文本文件（用于对文件追加文本）。

AssignFile
指定外部文件的文件名到文件变量。

BlockRead