TStringList.Add & .LoadFromFile zusammenfassen?

[Sir Rufo]

LoadFromFile liest (wie du schon bemerkt hast) die Datei komplett in die StringList und alles was vorher da war ist weg.

Somit mußt du erst die Datei laden und dann die weiteren Inhalte hinzufügen.
Die StringList hat aber nicht nur die Methode Add sondern auch Insert

Das sollte das was du erreichen möchtest lösen

Ein anderer Weg wäre es die Datei in eine temporäre StringList zu laden und dann an die bestehende dranzuhängen AddStrings

[-187-]

Weich doch einfach auf eine zweite sl aus. Eine befüllst du mit .Add und die andere mit .LoadFromFile() .. Anschließend fügst du beide zusammen.

[DeddyH]

IMO geht das so am Einfachsten (wie -187- bereits vorgeschlagen hat):

Delphi-Quellcode:

list.Add('Trallalla');
list.Add('Wuppdi');
sl2 := TStringList.Create;
try
  sl2.LoadFromFile(Dateiname);
  list.AddStrings(sl2);
finally
  sl2.Free;
end;

[SyntaxXx]

Vielen dank, es hat funktioniert. xD

Manchal sitzt man aber auch auf seinem Gehirn (:

[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   
---------------------------