TStringList.Add & .LoadFromFile zusammenfassen?

[Helmi]

Hallo,

ich möchte Sir Rufo´s Vorschlag auch mal als Code darstellen. Das Ganze mit Insert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;

  try
    sl.LoadFromFile('d:\test.txt');

    sl.Insert(0, 'ConstText1');  //in erste Zeile einfügen
    sl.Insert(1, 'ConstText2');  //in zweite Zeile einfügen

    //oder...
    //sl.Insert(0, 'ConstText2');  //in erste Zeile einfügen
    //sl.Insert(0, 'ConstText1');  //in erste Zeile einfügen

    ShowMessage(sl.Text);
  finally
    FreeAndNil(sl);
  end;
end;

In der test.txt-Datei steht drin:

Code:

der
die
das
wer
wie
was

Daraus resultiert als Text für ShowMessage:

Code:

---------------------------
Project1
---------------------------
ConstText1
ConstText2
der
die
das
wer
wie
was

---------------------------
OK   
---------------------------