Zitat:
Wenn die eine Klasse eine Untermenge der anderen darstellt, könntest du die größere von der kleineren Klasse ableiten. Dann müsste ein einfaches Zuweisen genügen.
Ich versuche
Code:
type
TmyClass2=Class
Nr:Integer;
Name:string;
Vorname:string;
Telnr:string;
end;
type
TmyClass1=Class(TmyClass2)
PLZ:string;
FremdNr:Integer;
end;
und bekomme bei
Code:
... MyClass1:=myClass2; ...
die Meldung 'Incompatible Typen'