Работа с ListView

[мимо]

Есть поиск и добавление файлов в ListView.
Есть поиск в каждом файле, в каждой строке, слова через Edit1.Text
Как через POS осуществить поиск по строкам в файлах в ListView?

procedure BeginFind;
var
 Index,SelIndex,ReplaceResult:Integer;
 ErrorStr:string;
begin
 FilesTotal:=MainForm.ListView.SelCount;
 ReplaceForm.Caption:='Поиск';
 try
  ReplaceForm.Show;
  with MainForm do
   begin
    SelIndex:=0;
    for Index:=0 to ListView.Items.Count-1 do
     begin
      CurrentFileName:=ListView.Items[Index].SubItems[0]+'\'+ListView.Items[Index].Caption;
      ReplaceResult:=FindSubStrInFile(CurrentFileName);
      end;
      if ReplaceResult<0
       then ListView.Items[Index].SubItems[2]:=ErrorStr
       else ListView.Items[Index].SubItems[2]:=IntToStr(ReplaceResult);
      if ReplaceResult>0
       then Inc(FilesChanged);
      Inc(SelIndex);
      ReplaceForm.RefreshData;
     end;
   end;
 finally
  ReplaceForm.Close;
  ReplaceForm:=nil;
 end;
end;

думаю, нужно добавить такое выражение:

for Index:=0 to ListView.Items.Count-1 do
     begin
if (Pos('слово', ListView.Items.Item[Index].Caption) <> 0) and (Pos('второе слово', ListView.Items.Item[Index].Caption) <> 0)
  then

только как закончить? может сначала нужно создать TStringList?

[Скандербег]

В добавленном коде содержится попытка искать "слово" совсем не в файле, а в строке пункта ListWiew (Caption). Может быть Caption и содержат строки с именами файлов, но все же это не сами файлы, которые, как минимум, для поиска в них, надо открывать.

В приведенном коде есть функция FindSubStrInFile - это, видимо, и есть та функция, которая открывает файл и ищет "слово" в нем, возвращая результат поиска.
Может быть в реализации этой функции и находятся ответы на ваши вопросы.

Что касается конкретного вопроса " как через POS искать слово" (теплится надежда, что это текстовый файл), то это очень просто: загружаете файл (имя которого находится в Caption ListView) в TStringList и применяете Pos.
Pos('слово', SL.Text) (SL в этом примере переменная типа TStringList).
Pos возвращает либо 0 (не найдено), либо число >0 (найдено в такой-то позиции).
Но Pos ВСЕГДА вернет (если вернет) первое вхождение "слово" в тексте и если в этом тексте есть еще такое же слово, то оно не будет найдено. Для расширенного поиска используется функция PosEx (модуль StrUtils).

[мимо]

да. спасибо, уже разобрался. тут поиск происходит только в названиях файлов, находящихся в ListView.
а тогда как записать, если заданное нами слово не найдено в файле, то файл удаляется из ListView? (т.е. if ReplaceResult=0, then ...)

[Скандербег]

Удалить то item с именем файла не сложно:
ListView1.Items.Delete(<индекс>), где <индекс> - число в диапазоне 0..ListView.Items.Count-1

Но в безусловном цикле, который приведен в коде этого делать нельзя. Засада кроется в том, что после первого же удаления количество items станет меньше чем было задано при входе в цикл (ListView.Items.Count). Рано или поздно в цикле произойдет ошибка обращения по некорректному адресу.

Ситуацию может исправить цикл с предусловием.

index := 0;
while index < ListView.Items.Count do begin
  ...
  if ReplaceResult = 0 then
    ListView1.Items.Delete(index)
  else
    Inc(index);
end;

[мимо]

странно, если брать index, то выдает ошибку - Assignment to FOR-Loop variable 'Index'
а если вместо index поставить SelIndex, то при нахождении искомого слова - все нормально, а если не находит, то вылетает с ошибкой - accessviolation.
либо оставить только if ReplaceResult = 0 и при не нахождении искомого слово очищается весь ListView (

[Скандербег]

Ошибка "Assignment to FOR-Loop variable 'Index'" понятно от чего происходит: вы почему то решили оставить цикл For и вставить в него цикл while, хотя ясно было сказано, что for в этом случае не годится и его надо заменить на while.
А в других ошибках (они, скорее, логические) надо разбираться, нужны исходные тексты проекта, иначе не понятно что в них происходит. Впрочем, и эти ошибки тоже, вероятно, происходят от того что оставлен цикл for.

[casio23]

procedure LV_FindAndSelectItems(lv: TListView; const S: string; column: Integer);
var
  i: Integer;
  found: Boolean;
  lvItem: TListItem;
begin
  Assert(Assigned(lv));
  Assert((lv.ViewStyle = vsReport) or (column = 0));
  Assert(S <> '');
  for i := 0 to lv.Items.Count - 1 do
  begin
    lvItem := lv.Items[i];
    if column = 0 then
      found := AnsiCompareText(lvItem.Caption, S) = 0
    else if column > 0 then
    begin
      if lvItem.SubItems.Count >= Column then
        found := AnsiCompareText(lvItem.SubItems[column - 1], S) = 0
      else
        found := False; 
    end
    else 
      found := False;
    if found then
    begin
      lv.Selected := lvItem;
    end;
  end;
end;

procedure TForm.Edit1Change(Sender: TObject);
var
rct:TRECT;
i: integer;
const LVM_GETITEMRECT=4110;  LVIR_BOUNDS=0;
begin
for i:=0 to ListView1.Items.Count-1  do
begin
If pos(Edit1.Text, ListView1.Items[i].Caption)>0 then
begin
ListView1.Selected:=ListView1.Items[i];
rct.Left:=0;
SendMessage(ListView1.Handle,LVM_GETITEMRECT,0,integer(@rct));
ListView1.Scroll(0,(i-ListView1.TopItem.Index)*(rct.Bottom-rct.Top));
end;
end;

[Пепел Феникса]

не нужно некропостить.