Zitat von
Phoenix:
...Du kannst also alles was von TComponent abgeleitet ist serialisieren. Such mal nach ReadComponent und WriteComponent hier...
Hi Phoenix,
ich habe das jetzt mal mit Read-/WriteComponent versucht. Hier die Procedure bei Aufruf des Formulars:
Delphi-Quellcode:
procedure TFrmTurnierOptionen.FormActivate(Sender: TObject);
begin
MStream := TMemoryStream.Create;
MStream.WriteComponent(Self);
end;
Und hier die Procedure bei drücken des <Abbrechen>-Buttons:
Delphi-Quellcode:
procedure TFrmTurnierOptionen.BtTurnierEinstellungenAbbrechenClick(
Sender: TObject);
begin
mstream.position := 0;
mstream.ReadComponent(Self);
mstream.Free;
FrmTurnierOptionen.Close;
end;
In dieser Procedure tritt eine
Exception "A component named Label7 already exists".
Was mache ich hier falsch?
Gruß, Andreas