Code:
tClass1=class
private
fNesto: string:
fDrugo: integer;
publshed
property Nesto: string read fNesto write fNesto;
property Drugo: integer read fDrugo write fDrugo;
end;
tClass2=class(neka visual...)
private
fPrva: tClass1;
protected
procedure sefPrva(Value: tClass1);
published
property Prva: tClass1 read fPrva write setfPrva;
end;
...
procedure tClass2.setfPrva(Value: tClass1);
begin
fPrva.Nesto := Value.Nesto;
fPrva.Drugo := Value.Drugo;
end;
tClass1=class
private
fNesto: string:
fDrugo: integer;
publshed
property Nesto: string read fNesto write fNesto;
property Drugo: integer read fDrugo write fDrugo;
end;
tClass2=class(neka visual...)
private
fPrva: tClass1;
protected
procedure sefPrva(Value: tClass1);
published
property Prva: tClass1 read fPrva write setfPrva;
end;
...
procedure tClass2.setfPrva(Value: tClass1);
begin
fPrva.Nesto := Value.Nesto;
fPrva.Drugo := Value.Drugo;
end;
procedura setfPrva se ne pokrene... Znam da to mogu napraviti u klasi tClass1 i tada radi, ali mi je zgodnije u tClass2.