program Project2;
uses
Windows;
var
MyTextFile : TextFile;
ALine : string;
begin
AssignFile(MyTextFile,'FileName.Txt');
Reset(MyTextFile);
ReadLn(MyTextFile,ALine);
MessageBox(0, PChar(Aline), '', 0);
end.
Delphi读取文本内容
最新推荐文章于 2023-04-09 15:37:31 发布