Problem mit TObject.Classname

[himitsu]

Delphi-Quellcode:

var ServerList: Array[..] of TObject;

function NotifyToList(item: TObject): Word;

// oder besser gleich TServer statt TObject

var ServerList: Array[..] of TServer;

function NotifyToList(item: TServer): Word;

PS: warum eigentlich ItemUsed?

Delphi-Quellcode:

i := 0;
while not Assigned(ServerList[i]) do Inc(i);
ServerList[i] := item; 

// aka (Vorherigs halten viele abver für schöner/verständlicher)

i := 0;
while ServerList[i] = nil do Inc(i);
ServerList[i] := item;

und die Übergabe dann nur noch so:
NotifyToList(Server);