Die gemeine Listview-Komponente :-/

[scp]

Delphi-Quellcode:

function LVIndexByCaption(ListItems : TListItems; cText : String) : Integer;
var
  I: Integer;
begin
  result := -1;
  for i := 0 to (ListItems.Count-1) do
    If (ListItems[i].Caption = cText) then
      begin
        result := i;
        Break;
      end;
end;

function LVIndexBySubitem(ListItems : TListItems; cText : String; Col : integer) : Integer;
var
  I: Integer;
begin
  result := -1;
  for i := 0 to (ListItems.Count-1) do
    If (ListItems[i].Subitems[Col] = cText) then
      begin
        result := i;
        Break;
      end;
end;

Delphi-Quellcode:

var
  lvIndex : integer;
begin
  lvIndex := LVIndexBySubitem(ListView1.Items, 'test1', 0);
  ListView1.Items[lvIndex].Subitems[0] := 'test3';
end;