Einzelnen Beitrag anzeigen

khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.926 Beiträge
 
FreePascal / Lazarus
 
#12

Re: OOP Grundsatzfrage Klasse TKunde

  Alt 1. Dez 2008, 14:24
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 ?
Karl-Heinz
  Mit Zitat antworten Zitat