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读取文本内容
最新推荐文章于 2025-05-15 16:02:34 发布