Thema: Delphi Listview / subitems

Einzelnen Beitrag anzeigen

Wishmaster

Registriert seit: 14. Sep 2002
Ort: Steinbach, MB, Canada
301 Beiträge
 
Delphi XE2 Architect
 
#1

Listview / subitems

  Alt 16. Mär 2003, 15:45
Hi


Ich habe ne Listview mit 3 SubItems. Wen jetzt SubItem.index 0 und 2 beschrieben ist und
Subitem.Index 1 lehr ist, wie kann ich in die lehre stelle was Reinschreiben ohne das der Inhalt von SubItem 0 und 2 sich ändert???

Mein jetzige Lösung geht so.
Delphi-Quellcode:
       Server:= {String};
       Server := AnsiUpperCase(Server);
   for i := 0 to Server_LV.Items.Count -1 do
  begin
    if Server = AnsiUpperCase(Server_LV.Items[i].Caption) then
     begin
        Server_LV.Selected := Server_LV.Items[i];
        li := Server_LV.Selected;

     if (Server_LV.Selected.SubItems.Strings[0] = '') or
        (Server_LV.Selected.SubItems.Strings[1] = '') or
        (Server_LV.Selected.SubItems.Strings[2] = '') then
       begin
        li.Caption := trim({string});
        li.SubItems.Insert(0, Trim(Bitrate));
        li.SubItems.Insert(1, Trim(Genere));
        li.SubItems.Insert(2, Trim(Name));
      end
bei dieser Lösung überschreibt er mir alle 3 spalten, ich will aber das er nur die
lehre spalte überschreibt

[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]
  Mit Zitat antworten Zitat