Was mache ich hier Falsch?
Der Erste durchgang Klappt!
Der Zeite dann nicht mehr!
Könnt ihr mir Helfen?
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;
...