delphi教程

delphi打开文本文件并读取内容

位置:首页 > delphi教程 > 高级教程,2019-08-01 09:44
delphi打开文本文件,delphi读取文本文件

delphi打开文本文件,delphi读取文本文件

procedure Tcform.N9Click(Sender: TObject);
var
F: TextFile;
FileName: string;
str: UnicodeString;
begin
FileName := ExpandFileName('file.txt');
AssignFile(F, FileName);
Reset(F); //只读打开

while not Eof(F) do begin Readln(F, str); //读取每行
  ShowMessage(str); end;

CloseFile(F);//关闭文件

end;


TAGS:delphi打开文本文件delphi读取文本文件

猜你喜欢

NewHot