Wat is er mis met de toekenning van de read functie? Hij compileert niet
MyClass=class(Tobject)
public
function IsWaarde(Key:String):boolean;
propery Aap :boolean read IsWaarde('aap');
propery Hans :boolean read IsWaarde('hans');
MyClass=class(Tobject)
public
function IsWaarde(Key:String):boolean;
propery Aap :boolean read IsWaarde('aap');
propery Hans :boolean read IsWaarde('hans');