Probleme mit Listview

[toms]

Zitat von the_seed:

hi, komme nicht ganz mit der komponente listview klar - kann mir jemand sagen wie ich vorhandene subitems ändern kann

Hallo,

Habe mal eine Funktion dafür geschrieben, welche die Caption eines
Items, Subitems in einer ListView setzt.
(Ohne Gültigkeitsbereichüberprüfung)

Delphi-Quellcode:

function LV_SetItemText(ListView: TListView; AColumn, ARow: Integer; AText: string): Boolean; 
begin 
  with ListView do 
  begin 
    { Für 1. Spalte } 
    if AColumn = 0 then 
    begin 
      Items[ARow].Caption := AText; 
    end 
    else 
    { Für Spalte 2...n} 
    begin 
      Result := Items[ARow].SubItems.Count > AColumn; 
      if Result then 
      begin 
        Items[ARow].SubItems.Strings[AColumn - 1] := AText; 
      end; 
    end; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  LV_SetItemText(ListView1,1,1,'Hallo'); 
end;