美文网首页
打开文本文件并读取内容

打开文本文件并读取内容

作者: itrojan | 来源:发表于2017-06-13 10:29 被阅读17次

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;

相关文章

网友评论

      本文标题:打开文本文件并读取内容

      本文链接:https://www.haomeiwen.com/subject/hncdqxtx.html