Zitat von
Tubos:
Eine Frage noch:
wieso gibt dieser code immer -1 zurück, obwohl die
ip 'a' in der Liste vorhanden ist?
Naja schaus dir doch nochmal an: Zuerst wird die for-Schleife durchgegangen und danach Result auf -1 gesetzt... egal was es vorher war.
Grund: break verläßt die Schleife, aber nicht die Funktion. Verschiebe Result := -1 ganz nach oben in der Funktion und es sollte gehen.
Delphi-Quellcode:
function TForm1.finduserip(searchip:
string): integer;
// Gibt die Nummer des users in der "users"-Liste zurück, der die übergebene IP hat.
var i: Integer;
begin
result:=-1;
// wenn nichts gefunden wurde, wird -1 zurückgegeben
for i := Users.count-1
downto 0
do
begin
if PUser(users.items[i]).ip = searchip
then
begin
result:=i;
break;
end;
end;
end;
Gruß,
Dani