Class -->Error

[DeddyH]

Im Normalfall macht man das ja auch so:

Delphi-Quellcode:

  TTier = class
  private
    pArt:string;
    pAlter:integer;
    pGeschlecht:string;
    pKrankheit:string;
    function getTierart: string;
    function getAlter: integer;
    function getGechlecht: string;
    function getKrankheit: string;
  public
    constructor Create(Krankheit:string; Geschlecht:string; Art:string);
  published
    property Tierart:string read getTierart;
    property Alter:integer read getAlter;
    property Gechlecht: string read getGeschlecht;
    property Krankheit:string read getKrankheit;
  end;

...
function TTier.getTierart: string;
begin
  Result := pArt;
end;

//usw. für die anderen Properties

Wobei man statt pArt dann FArt etc. schreiben würde.