Hallo zusammen,
ich hab da ein Problem mit TFileStream's:
Delphi-Quellcode:
procedure TMainForm.Speichern1Click(Sender: TObject);
var
FS: TFileStream;
begin
FS:= TFileStream.Create('test.xyz', fmCreate);
FS.WriteComponent(Frame);
FS.Free;
Frame.free;
end;
procedure TMainForm.Lesen1Click(Sender: TObject);
var
FS: TFileStream;
begin
RegisterClasses([TFrame1]);
FS:= TFileStream.Create('test.xyz', fmOpenRead);
FS.ReadComponent(Frame);
FS.Free;
end;
TFrame1 ist hierbei ein TFrame mit einem TEdit, TMemo und TLabel
Funktioniert nicht: Fehlermeldung beim Lesen: Eine Komponente namens Edit1 existiert bereits.
Ersetzt man TFrame durch eine 'einfache Komponente' wie TEdit oder TMemo geht es problemlos,
alle Eigenschaftswerte werden korrekt gesetzt.
Aber es sollte doch auch möglich sein ein zusammengesetztes Gebilde wie TFrame oder TForm 'als Ganzes' zu speichern und wieder einzulesen?