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.....