Einzelnen Beitrag anzeigen

sir-archimedes

Registriert seit: 2. Jan 2006
Ort: Münster
167 Beiträge
 
Delphi 2006 Professional
 
#5

Re: auf ein Object in einer klasse zeigen

  Alt 10. Feb 2006, 13:59
Ich würde den Parameter anders nennen (nämlich ADatei in deinem Fall - also ein "A" davor schreiben).

Privaten Attributen würde ich - wie üblich - ein F vorstellen und wenn du eine Property definierst, nennst du sie wie das Attribut nur ohne F. Wenn du eine Property hast, solltest du auch über die Property darauf zugreifen, denn dann kannst du anschließend noch eine Set-Methode für die Property dazuschreiben und es funktioniert immernoch wie gewünscht.

Beispiel:

Delphi-Quellcode:
type
  TTyp = class(TObject)
  private
     FAttribut : Integer;
     FBerechnet : Integer;
  protected
     property Attribut : INteger read FAttribut write SetAttribut;
  public
     procedure SetAttribut(AAttribut : integer);
     procedure TuWasUndSetAttribut(AAttribut : Integer);
  end;

...

procedure TTyp.SetAttribut(AAttribut : integer);
begin
  FAttribut := AAttribut;
  // Hier soll immernoch etwas mehr gemacht werden, als nur die Zuweisung.
  FBerechnet := 2*FAttribut;
end;

procedure TTyp.TuWasUndSetAttribut(AAttribut : Integer);
begin
  MacheIrgendwelcheDinge;
  // Gibt FBerechnet aus.
  ShowMessage(IntToStr(FBerechnet));
  // Hier wird intern nun SetAttribut aufgerufen;
  Attribut := AAttribut;
  // Gibt FBerechnet aus => FBerechnet wurde nun automatisch neu berechnet, da ja SetAttribut intern aufgerufen wurde.
  ShowMessage(IntToStr(FBerechnet));
end;
  Mit Zitat antworten Zitat