TextFile

来源:互联网 发布:如何搞垮一个淘宝店铺 编辑:程序博客网 时间:2024/05/15 19:47
//循环逐行读取Text内容procedure TForm1.Button1Click(Sender: TObject);Var  Fil: TextFile;  Str: String;begin  AssignFile(Fil, ExtractFilePath(Application.ExeName) + 'GroupNumber.txt');  //关联文件  Reset(Fil);  while Not Eof(Fil) do  Begin    Readln(Fil, Str);    Showmessage(Str);  End;  CloseFile(Fil);end;

0 0