Zitat von
implementation:
Delphi-Quellcode:
function NotifyToList(item: PObject): Word;
var i: Word;
begin
while ItemUsed[i] do Inc(i);
ItemUsed[i]:=true;
ServerList[i] := item;
Result := i;
OutputLine('WSID '+IntToHex(i,4)+' is stored for a '+item^.ClassName);
end;
meckert Delphi bei dir eigentlich noch wegen dem undefinierten i?
Delphi-Quellcode:
var ServerList:
Array[0..1023]
of TObject;
function NotifyToList(Item: TObject): Word;
begin
Result := Low(ServerList);
while Assigned(ServerList[Result])
do
if Result < High(ServerList)
then Inc(Result)
else raise Exception.Create('
Liste ist voll');
ServerList[Result] := Item;
OutputLine(Format('
WSID %.4x is stored for a %s', [Result, Item.ClassName]));
end;
// so das Freigeben von Items:
FreeAndNil(ServerList[i]);