Property zusammensetzen

[Robert_G]

Delphi-Quellcode:

type TSomeEnum = (slFirst, slSecond, slThird, slForth);
...
  property Server[aIndex : TSomeEnum] : TServer;

-> [Ctrl + Schift + C] drücken.

Delphi-Quellcode:

function getServer(aIndex : TSomeEnum) : TServer;
begin 
  case aIndex of
    slFirst  : result := Server1;
    slSecond : result := Server2;
    slThird  : result := Server3;
    slForth  : result := Server4;
  else
    result := nil;
  end;
end;

Delphi-Quellcode:

for i := slFirst to slForth do
  Server := aUser.Server[i];

Ehrlich gesagt finde ich es ziemlich hässlich und verstehe den Sinn der 5 Felder nicht.....