Bei obiger Funktion kommt es immer mal wieder zu einer Fehlermeldung (siehe Bild). Habs auch schon mit High(priv_Calls)+1 versucht. Ich vermute immer dann, wenn priv_Calls keine Elemente (mehr) hat, aber kann das sein? Warum liefert Length nicht einfach 0 und gut ist?
Delphi-Quellcode:
function TTapiLine.CallCount: integer;
begin
Result:=0;
try
Result:=Length(priv_Calls);
except on e:
Exception do
showmessage(e.
message);
end;
end;
//priv_Calls: TTapiCalls;
//TTapiCalls = Array of TTapiCall;
//TTapiCall ein(e) Objekt/Klasse
Ohne den try...except Block, also nur mit
Code:
Result:=Length(priv_Calls);
kommt die Fehlermeldung nur einmal, mit dem Block kommt es irgendwie zu einer Endlosschleife und die Fehlermeldung kommt immer wieder.