Was mache ich hier Falsch?
Der Erste durchgang Klappt!
Der Zeite dann nicht mehr!
Könnt ihr mir Helfen?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TS,TS2 : TMemoryStream;
  I:Integer;
begin
I:=0;
TS:=TMemoryStream.Create;
TS2:=TMemoryStream.Create;
TS.Clear;

 while I<ListBox1.Items.Count do
  begin
   TS2.LoadFromFile(ListBox1.Items[I]);
   TS.CopyFrom(TS2,TS2.Size);

   I:=I+1;
  end;
...

Was willst du eigentlich machen? Soviel ich weiß überschreibst du mit CopyFrom alles was vorher im ZielStream war. Das bedeutet, dass du danach nur mehr den Inhalt der letzten Datei übrig hast... Probiers mal mit nem Stream-Array...

was klappt nicht?
bringt er 'ne fehlermeldung?
dann kannste mit dem debug rausfinden, wo der fehler liegt
falls er keine fehlermeldung bringt, kannste folgendes probieren:

markieren

Delphi-Quellcode:

   TS2.LoadFromFile(ListBox1.Items[Listbox1.items.Count-1]);
   TS.CopyFrom(TS2,TS2.Size);

Ich will mehrere Dateien in eine Datei sreiben!
Aber ich Arbeite noch nicht lange mit Streams,... darum kenne ich mich noch nicht so gut aus!

Sind das reine Textdateien oder was? Wenn es nur Textdateien sind kannst du die ja mit AssignFile etc. öffnen und dann zeilenweise Lesen und in die Sammeldatei schreiben...

Nein Eben nicht!
Da sind Bilder,...

Gibst Du die zwei Streams am ende auch wieder frei? Zeig dochmal die ganze Prozedur.

Das ist die ganze Procedure!
Da kommt nur noch ein end; hinten dran!

Fehlermeldung: Stream-Lese Fehler!

Hmm,

vor dem letzten "end;":

markieren

Delphi-Quellcode:

FreeAndNil(TS);
FreeAndNil(TS2);

Was machst Du falsch Das ist die Preisfrage. Du bist doch lange genug dabei, daß DU auch weißt, daß wir vernünftige Überschriften verlagen. Bitte umgehend ändern. Danke.

......