Einzelnen Beitrag anzeigen

Cind12

Registriert seit: 30. Mai 2012
5 Beiträge
 
#3

AW: Komplettes Formular speichern/laden

  Alt 30. Mai 2012, 15:07
Hi,

danke für die schnelle Antwort!

Ich habe mir etwas ähnliches bereits gedacht, komischerweise bekomme ich die Fehlermeldung auch dann, wenn ich lokal für die Ladeprozedur ein neues Formular deklariere und dieses direkt aus dem Stream erschaffe:

Delphi-Quellcode:
procedure TForm1.Laden1Click(Sender: TObject);
var Stream : TFileStream; Form_neu : TForm1;
begin
  OpenDialog1 := TOpenDialog.Create(self);
  if OpenDialog1.Execute then
  begin
    if not FileExists(OpenDialog1.Filename) then exit;
    Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      Stream.Position := 0;
      Form_neu := TForm1.Create(Stream.ReadComponent(Form1) as TForm1);
    finally
      Stream.Free;
    end;
  end;
end;
Wieder bricht es mit der Fehlermeldung "A Component named [name] already exists" ab. Ich bekomme die Daten also in gar kein Formular des Typs TForm1 geladen.

mit freundlichen Grüßen
Cind12
  Mit Zitat antworten Zitat