ListView index numarası

[Dostk]

Selam.

ListView de Index numarasını id numarasına göre almam gerek, ancak işin işinden çıkamadım...

ListView de herhangi bir satırda işlem yaptıktan sonra o satırın önüne onlarca kayıt giriyorum otomatik olarak işlem yapılan satırın index numarası değişiyor, daha sonra for döngüsü ile id numarası ve ListView deki id numarasına göre arama yaptırıyorum, id numaraları eşitlenince hangi satırda bulunduysa o satırın index numarasını nasıl alırım...

Kod: Tümünü seç

procedure TForm2.ListViewNumber(Sender: TObject);
begin
  with ListView do
  begin
    for I := 0 to Items.Count - 1 do
    begin
      if Idno= StrToInt(Items[I].SubItems[5]) then
      begin
        ShowMessage(IntToStr(ItemIndex + 1));
      end;
    end;
  end;
end;

[brs]

Kolay gelsin

Kod: Tümünü seç

procedure TMainForm.Button1Click(Sender: TObject);
var
  i: Integer;
  Buldum: Boolean;
  SelArray: array of Integer;
begin
  try
    Buldum := False;
    with PListView do
    begin
      for i := 0 to Items.Count - 1 do
      begin
        if Pos('XXX', Items[i].SubItems[1]) > 0 then
        begin
          SetLength(SelArray, Length(SelArray) + 1);
          SelArray[High(SelArray)] := i;
          ShowMessage(IntToStr(i + 1));
          Buldum := True;
          Break;
        end;
      end;
    end;
  except
  end;
end;