Hey,
Ich versuche in einem Listview folgendes aufzulisten :
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
item: tlistitem;
begin
item := listview1.items.add;
item.Caption := inttostr(listview1.Items.Count);
item.SubItems.Add(ServerSocket1.Socket.Connections[Listview1.Items.Count].RemoteHost);
statusbar1.Panels[1].Text := 'Leute Online : '+inttostr(ListView1.items.Count);
end;
Doch immer wenn der Client connecten will kommt :
Delphi-Quellcode:
---------------------------
Project1
---------------------------
Listenindex überschreitet das Maximum (1)
---------------------------
OK
---------------------------
Was mach ich hier falsch??
Mfg
Luckys41