Eine Frage noch:
wieso gibt dieser code immer -1 zurück, obwohl die
ip 'a' in der Liste vorhanden ist?
Delphi-Quellcode:
function finduserip(
ip:
string): integer;
// Gibt die Nummer des users in der "users"-Liste zurück, der die übergebene IP hat.
var i: Integer;
begin
for i := users.count-1
downto 0
do
begin
if userpointer(users.items[i]).ip = searchip
then
begin
result:=i;
break;
end;
end;
result:=-1;
// wenn nichts gefunden wurde, wird -1 zurückgegeben
end;
Code zum testen:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var u: userpointer;
begin
new(u);
u.ip:='
a';
u.
name:='
a';
u.port:=1;
users.Add(u);
new(u);
u.ip:='
b';
u.
name:='
b';
u.port:=2;
users.add(u);
showmessage('
Nach dem Hinzufügen von 2 Items ist users.count = '+inttostr(users.Count));
showmessage('
user nr. '+inttostr(finduserip('
a'))+'
hat die IP a.');
end;