TListView Problem bei Item Caption-Änderung

[Uwe Raabe]

Ich glaube du suchst FindCaption

[ByTheTime]

@haentschman: Hö? ALso nicht das wir jetzt aneinander vorbeireden, aber Data ist eien Stringslist, wo meine ganzen ReceiveTexte des Sockets landen. Ich möchte die Caption eine bestimmten ListView Items ja ändern und nicht einem Label, etc. zuweisen.

@Uwe Raabe: Uff... Wie genau soll das den funktioniern? Einer Variable vom Typ TListItem die FindCaption zuweißen? Was kommt dann in die Deklaration der Funktion?

[haentschman]

Ahh... Data ist nicht Data des Items sondern eine Stringlist ?
ListViewClients.Items[i].Caption := NewNick; sollte eigentlich funktionieren. (gültiger Index vorausgesetzt)
Die Caption wird immer in der ersten Spalte ausgegeben. Breit genug ? Wird nicht nochmal anders gesetzt ?

[ByTheTime]

Ja genau, so funktioniert es auch (wenn ich für i = 0 setze). ALso eigentlich müsste es doch gehen. Sollte jetzt das Kommando cmdNick kommen (siehe oben), dann muss er ja den Clienten finden, von dem die Nachricht kommt:

Delphi-Quellcode:

  cmdNICK:
    begin
      Clients.Items.Strings[ClientIndex] := Data.Strings[1]; //ListBox

      d := Clients.Items.IndexOfObject(TCPServer.Socket); //Ermittle Sender des Kommandos
      Victims.Items[d].Caption := 'Hallo'; //Testweiße einen "fertigen" String.
    end;

Jetzt bekomme ich eine Zugriffsverletzung ...

[haentschman]

Ich habe einen Teststring auf den 3. Index gesetzt. (bei 4 vorhandenen) ... ohne Probleme.

Sind denn genauso viel Items in der Listview wie Clients in der anderen Liste ? Ist der Index gültig ? Was sagt der Debugger ?

PS: wenn das funktioniert kommen wir zum optimieren ohne die Client Liste (Listbox) (Datenhaltung von Darstellung trennen)

[ByTheTime]

Sekunde, ich probiere gerade aus. Die Zugriffsverletzung entsteht wenn keine es den Clienten im ListView nicht gibt habe ich gerade herausgefunden

[Edit] Ah, ich sende das Nick Commando vor dem COmmando was die ListView füllt... Masl sehen, ich schrieb gleich was sich geändert hat

P.S.: Kommst du aus Kaben in der Nähe von FFM/Maintal?

[haentschman]

Karben zwischen FFM und Friedberg

[Uwe Raabe]

Zitat von ByTheTime:

@Uwe Raabe: Uff... Wie genau soll das den funktioniern? Einer Variable vom Typ TListItem die FindCaption zuweißen? Was kommt dann in die Deklaration der Funktion?

Wenn du den alten Nick kennst:

Delphi-Quellcode:

procedure TfrmMain.RenameClient(OldNick, NewNick: String);
var
  item: TListItem;
begin
  item := ClientListView.FindCaption(0, OldNick, false, true, false);
  if item <> nil then
    item.Caption := NewNick;
end;

oder wenn du beim Anlegen mit AddItem den Socket als Object mitgegeben hast:

Delphi-Quellcode:

procedure TfrmMain.RenameClient(Socket: TCustomWinSocket; NewNick: String);
var
  item: TListItem;
begin
  item := ClientListView.FindData(0, Socket, true, false);
  if item <> nil then
    item.Caption := NewNick;
end;

[ByTheTime]

ES GEHT!!! Ich habe die erste Prozedur von dir etwas umgebaut, jetzt funktioniert es