Danke für eure Ansätze, habs nun ein wenig anders gemacht, da ich ja ein Array von Integers brauche:
Delphi-Quellcode:
type TUser = class
private
Server: array[0..4] of integer;
function GetServer(Index: integer): integer;
public
property Server[Idx: integer]: integer read GetServer;
end;
function TUser.GetServer(Index: integer): integer;
begin
Result := FServer[Index];
end;
Danke
