Pos - ungenau suchen

[toyoman]

Zitat von peschai:

Hallo

was möchtest du tun ?
Alle zeilnummern ausgeben wo dein suchtext vorkommt oder die Annzahl wie oft ?

...Ok ?

Meine aktuelle Prozedur geht wie folgt:

Delphi-Quellcode:

procedure TfrmUebersicht.BitBtn1Click(Sender: TObject);
var
  i,j:integer;
  liste:TStringlist;
begin
      listview1.ItemIndex:=0;
      for i:=0 to listview1.Items.Count-1 do
      begin
          liste:=TStringList.Create;
          liste.LoadFromFile(listview1.Items.Item[listview1.itemindex].SubItems[5]+'.dec');
          for j:=0 to liste.Count-1 do
          begin
              if pos(liste[j],edsuch.Text) >0 then
              begin
                showmessage(listview1.Items.Item[listview1.itemindex].SubItems[5]+'.dec');
                listview1.Items.Item[j].ListView.Canvas.Brush.Color:=clred;
              end else
              begin
                //showmessage('nichts gefunden');
              end;
          end;
          liste.Free;
          listview1.ItemIndex:=listview1.ItemIndex+1;
      end;
end;

ich möchte die Zeile in der Listview markieren wenn der Text im File gefunden wurde... (die Listview enthält in einer Spalte Pfad und Dateinamen der zu durchsuchenden Dateien.