Code: Alles auswählen
type
TSettings = class
...
FProduktbereiche: array of smallint;
function GetPBR(aIndex: integer): smallint;
public
published
...
property GetProduktbereiche[aIndex: integer]: smallint read GetPBR;
end;
function TSettings.getPBR(aIndex: integer): smallint;
begin
Result := FProduktbereiche[aIndex];
end;
Die Meldung lautet:
Danke.usettings.pas(53,33) Error: This kind of property cannot be published