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);