Delphi读取txt文本内容怎么写?

Question

Delphi读取txt文本内容怎么写?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i:Integer;
  List: TStringList;
begin
  List := TStringList.Create;
  List.LoadFromFile('test.txt');
  for i := 0 to List.Count - 1 do
  begin
    S := List[i];
    .................
  end;
  List.Free;
end;

Answer 2

新建一个窗体，放上Memo、Button、OpenDialog三个控件。
然后，
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
     memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;给分吧

Answer 3

Procedure ReadTxtFile(sTxt:String;sLst:TStrings);
Var
  F:TextFile;
  sText:String;
Begin
  If Not FileExists(sTxt) Then  exit;
  Try
    AssignFile(F,sTxt);
    Reset(F);
    sLst.Clear;
    While Not Eof(F) Do
    Begin
      ReadLn(F,sText);
      sLst.Add(sText);
    End;
  Finally
    CloseFile(F);
  end;
End;end;