Zitat von
implementation:
Das wird nicht passieren.
ItemUsed und Serverlist sind Arrays von 0 bis 1023, und so viele Elemente wird das Programm niemals benötigen.
Da Du deine lokale Variable nicht initialisierst, kann diese im Zweifelsfall einen beliebigen Wert annehmen, und du bekommst einen falschen Index....
Besser so:
Delphi-Quellcode:
function NotifyToList(item: PObject): Word;
var i: Word;
begin
i := 0;
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;
Grüße phreax
Und dann war da noch der junge Mann ....
... der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr, er verfasst heute die Fehlermeldungen bei Microsoft!