mehrere Dateien in 1

[SaFu]

Ok mit ein bissel nachdenken hab ich jetzt geschaft

Kann man das auch schneller machen dauert bissel lange bei mir

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i : Integer;
begin
Memo1.Lines.BeginUpdate;
 try
  sl1:= TStringList.Create;
  sl2:= TStringList.Create;

 for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
   sl2.add(sl1.Text);
  end;
  Memo1.Text:= sl2.Text;
 Finally
   memo1.Lines.SaveToFile('c:\test.txt');
   Memo1.Lines.EndUpdate;
 end;
end;