Memory Streams kopieren?

[Sharky]

Hai FreewareFire,

habe es zum Test mal so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 m_stream1,
 m_stream2  : TMemoryStream;
begin
 m_stream1 := TMemoryStream.Create;
 m_stream2 := TMemoryStream.Create;
 try
  m_stream1.LoadFromFile('c:\test.txt');
  m_stream2.LoadFromFile('c:\test.txt');
  m_stream2.Seek(0,soFromEnd);
  m_stream2.CopyFrom(m_stream1,0);
  m_stream2.SaveToFile('c:\ergebniss.txt');
 finally
  m_stream1.Free;
  m_stream2.Free;
 end;
end;

[EDIT]Hagen war schneller....[/EDIT]