Klassen Methoden die private stehen

[Aurelius]

Meine Vorredner haben vollkommen recht.

Um das Beispiel nochmal genauer zu erklären:

Delphi-Quellcode:

procedure TZitrone.ZFarbe(a: String);
begin
  if (LowerCase(a) = 'grün') or (LowerCase(a) = 'gelb') then
    FZitronenfarbe := a
  else
    FZitronenfarbe := 'gelb';
end;

Diese Prozedur lässt also nur grün und gelb als Farbe zu. Dadurch kann man die Eingabe von unsinnigen Werten (z.B. blau) oder Fehlereingaben verhindern. Netürlich kann man innerhalb der Prozeduren alle möglichen Dinge machen: Berechnungen, Loging etc. pp.