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