|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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. |
转载请注明：exchen's blog » Delphi 读取文本内容