Class -->Error

[Teekeks]

Zitat von quendolineDD:

Genauso heißt es aber auch nicht
Label1.Caption:=Tier.pKrankheit; sondern, da pKrankheit ein private-Attribut deiner Klasse ist, die du über deine property getKrankheit:string read pKrankheit; publishst (diese eingedeutschten Wörter :-\)
Label1.Caption := Tier.getKrankheit;

das habe ich mitlerweile selber schon herrausbekommen. Ich konnte aber komischerweise Trozdem darauf zugreifen... warum eigentlich?

@deddyH:
Ich hab das jetzt so gelößt:

Delphi-Quellcode:

  TTier = class
  private
    procedure sAlter(NeuesAlter:integer);
  protected
    pArt:string;
    pAlter:integer;
    pGeschlecht:string;
    pKrankheit:string;
  public
    constructor Create(Krankheit:string; Geschlecht:string; Art:string);
    destructor Destroy;
  published
    property getTierart:string      read pArt;
    property getAlter:integer       read pAlter;
    property getGeschlecht: string  read pGeschlecht;
    property getKrankheit:string    read pKrankheit;

    property setAlter:integer       write sAlter;
    property setKrankheit: string   write pKrankheit;
    property setGeschlecht: string  write pGeschlecht;
    property setTierart: string     write pArt;
  end;

geht das so oder verstößt das total gegen die Programmierer-Ehtik?

gruß Teekeks