Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#12

Re: Problem mit TObject.Classname

  Alt 20. Feb 2009, 21:17
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);
$2B or not $2B
  Mit Zitat antworten Zitat