Question

delphi如何读取TXT、

我想用assignfile那种。。。。

还有reset（）是什么意思

不要memo1.lines.loadfromfile('xxx.txt');这种

Answer 1

窗口上放一个打开对话框,一个memo,一个按钮
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); //绑定文件到文件类型变量
Reset(F);//打开一个存在的文件,另Rewrite创建文件并打开
while not eof(F) do begin
Readln(F, S);
Memo1.Lines.Add(S);
end;
CloseFile(F);
end;
end;

Answer 2

assignfile(TXT,'文件路径,ooxx:\ooxx\ooxx\ooxx.txt');
reset() 从新打开一个已存在的文件 比如已经打开ooxx.txt了 从新打开

Answer 3

reset 打开一个已经存在的文件，文件指针在首
rewrite 打开一个文件，如果文件已经存在，则置空
append 打开一个已经存在的文件，文件指针在尾