Moin !
So gehts:
Delphi-Quellcode:
procedure TForm10.dxBarButton7Click(Sender: TObject);
Var
fs: TFileStream;
ms: TMemoryStream;
Begin
ms := TMemoryStream.Create;
//ms.LoadFromFile('E:\Documents and Settings\Administrator\My Documents\RAD Studio\Projekte\Unit1.pas');
aqDockingManager1.SaveToStream(ms);
fs := TFileStream.Create('
ZTest.txt', fmCreate);
ms.Position := 0;
fs.CopyFrom(ms, ms.Size);
fs.Free;
ms.Free;
End;
Zitat:
Unter Umständen musst du nach "SaveToStream" die Position wieder auf 0 setzen.
Das war der Hinweis im Zusammenhang mit CopyFrom.
Nu rennt das ! Danke !