Memo strings aus Textdatei und strings laden

[L85]

Wie kann ich in einem memo den Inhalt eines Strings und einer Textdatei hinzufügen ohne das eins davon später im Memo fehlt. Also mal erst den string zu einem vorhandenen Text hinzufügen und mal den Inhalt einer Textdatei.

[MrKnogge]

Hinzufügen -> Add

Delphi-Quellcode:

Memo1.Lines.Add
Memo1.Lines.AddStrings

[pszopp]

Hilft das weiter? (ungetestet)

Delphi-Quellcode:

...
var TmpList : TStringList;
begin
  // Einen String in deine Liste einfügen
  DeineListe.Add('EinString');
  // Inhalt eines anderen TStrings-Objekt kopieren. (AndereListe : TStrings)
  DeineListe.AddStrings(AndereListe);

  TmpList := TStringList.Create;
  try
    // Lädt den Inhalt aus der Datei C:\Test.txt
    TmpList.LoadFromFile('C:\Test.txt');
    // Den gerade geladenen Inhalt in deine Liste einfügen
    DeineListe.AddStrings(TmpList);
  finally
    FreeAndNil(TmpList);
  end;
end;

Gruß,
pszopp