auf ein Object in einer klasse zeigen

[remie]

Hi leute habe wieder mal ein Dummes Problem ...

zuerst mal mein code:

Delphi-Quellcode:

lang_object = class
...
private
  datei : TTreeNode;
...
procedure lang_object.set_datei(datei: TTreeNode);
begin
  datei := datei;
end;

mein Problem is wie weiße ich den übergabe Parameter dem classen Objekt zu :?:
in Java oder c++ gibt es ja den this operator aber in delphi os der ja nicht vorhanden

Danke für die Hilfe im vorraus

[mkinzler]

Name des parameters ändern oder

Delphi-Quellcode:

self.datei := datei;

[remie]

oh mann is das dumm ...
hmm was is den ein saubererer Programmier stil ?
in java oder c hätte ich es aufjedenfall mit dem
namen gemacht damit da beim aufruf der funktion klar is was gemeint is ...

[mkinzler]

Zitat:

hmm was is den ein saubererer Programmier stil ?

Wohl nicht den Paramter und die private Eigenschaft gleich zu nennen.
Um diesem Problem aus dem Weg zu gehen, gibt man in Delphi den privaten Eigenschaften den Präfix F. In deinem Beispiel hieße er dann FDatei.

[sir-archimedes]

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;

[Khabarakh]

Zitat:

Zitat von remie

in Java oder c++ gibt es ja den this operator aber in delphi os der ja nicht vorhanden

Erstens ist das kein Operator sondern ein Keyword und zweitens gibt es so etwas sehr wohl in Pascal: Self (ups, hat ja mkinzler schon geschrieben :stupid: ).
Aber durch die zwei Präfixe sollte das Problem ja schon gelöst sein.