Mehrere Text-Dateien in ein TMemo?

[Christian Seehase]

Moin mlspider,

Delphi-Quellcode:

var
  slWork : TStringList;

begin
  slWork := TStringList.Create;
  try
    slWork.LoadFromFile(PfadDerEinzulesendenDatei);
    Memo1.Lines.AddStrings(slWork);
  finally
    FreeAndNil(slWork);
  end;
end;

Bei einzeiligen Dateien genügt auch .Add(slWork.Text);, oder .Add(trim(slWork.Text));
Du musst mal ausprobieren, was bei Dir am Besten passt.