property für function definieren

[eassy]

hallo,
zur zeit stehe ich vor folgendem problem, ich habe eine klasse in
der ich eine private function habe die die anzahl aus zwei stringlisten
berechnet das ergebnis dieser function möchte ich mit hilfe der
property bekommen.
ausschnitt aus meinem code:

Delphi-Quellcode:

type Txy = class(Tobjekt)
private
   ergebnis: real;
  
   function setAnzahl(liste1,liste2: Tstringlist) : integer;

public
   property erg: integer read setAnzahl;

end;


function Tform1.setAnzahl(liste1,liste2: Tstringlist): integer;
begin
  ergebnis := liste1.count/liste2.count;
  result := round(ergebnis);
end;

nun bekomme ich aber eine fehler meldung beim compilieren:
inkompatible Type beim property.

kann mir irgendjemand dabei helfen?

gruß
eassy :cry:

[CalganX]

Das Problem sind die Parameter.
Eine Funktion, die auf eine Änderung/einen Zugriff auf eine Eigenschaft reagiert, muss gewissen Regeln entsprechen. Die für read lautet ungefähr so:

Delphi-Quellcode:

function Read: TType; // read ist einfach der name

Chris

[eassy]

danke, ich habe die lösung so eben gefunden.

gruß
eassy :dancer: