读取TXT文档示例

procedure TForm1.btn2Click(Sender: TObject);
var F:TextFile;
s:string;
begin
         if dlgOpen1.Execute then
         begin
           AssignFile(F,dlgOpen1.FileName);
           Reset(f);
          while not Eof(F) do
          begin
             Readln(F,s);
             redt1.Lines.Add(s);
          end;
          CloseFile(F);

         end;
end;

end.