Delphi-Quellcode:
Type
TKundenPlausi = class(TPersistent)
private
FKunde : TKunde;
FPlausiOK :boolean;
procedure PlausiCheckPLZ;
public
constructor Create(AKunde:TKunde);
procedure DoAllChecks;
property PlausiOK: boolean read FPlausiOK write FPlausiOK;
end;
implementation
procedure TKundenPlausi.PlausiCheckPLZ;
var plz : string ;
begin
plz := FKunde.PLZ ;
end;
procedure TKundenPlausi.DoAllChecks;
begin
PlausiCheckPLZ ;
FPlausiOK:= true;
end;
constructor TKundenPlausi.Create(AKunde:TKunde);
begin
end;
end.
muss ich im Constructor das object aKunde erst erzeugen ?