Text aus .txt auslesen

[Bjoerk]

Für sowas gibt's auch die TStringList class:

Beispiel:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  SL: TStringList;
  FileName: string;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'Raumschiff_bewegen.txt';
  SL := TStringList.Create;
  try
    if FileExists(FileName) then
      SL.LoadFromFile(FileName); // StringList aus Datei laden;
    Memo1.Lines.Assign(SL); // Z.B. Ganze Datei in ein Memo laden;
    Label1.Caption := SL.Text; // Z.B. Ganze Datei als string in ein Label laden;
    if SL.Count > 0 then
      ShowMessage(SL[0]); // Die erste Zeile anzeigen;
  finally
    SL.Free;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  SL: TStringList;
  FileName: string;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'Raumschiff_bewegen_Neu.txt';
  SL := TStringList.Create;
  try
    SL.AddStrings(Memo1.Lines); // Z.B. Ganzen MemoText der StringList hinuzügen;
    SL.Add(Label1.Caption); // Z.B. Label.Caption der StringList hinuzügen;
    SL.Add('I like TStringList.'); // Eine weitere Zeile anhängen;
    SL.SaveToFile(FileName); // StringList in Datei speichern;
  finally
    SL.Free;
  end;
end;