In Stream mehrere Dateien laden?

[Sharky]

Zitat von Mr Whoopee:

....gesstream:=stream1+stream2?

Fast

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  st1 : TMemoryStream;
  st2 : TMemoryStream;
begin
  st1 := TMemoryStream.Create;
  st2 := TMemoryStream.Create;
  try
    st1.LoadFromFile('c:\test1.txt');
    st2.LoadFromFile('c:\test2.txt');
    st1.Position := st1.Size;  // Stream auf das Ende positionieren
    st1.CopyFrom(st2,0);  // Alles vom Beginn des Streams2 in Stream1 kopieren.
    st1.SaveToFile('c:\test12.txt');
  finally
    st1.Free;
    st2.Free;
  end;
end;

Es wird mit .CopyFrom der Inhalt von Stream2 ab der aktuellen Position in Stream1 kopiert.