Probleme mit suchen....

[kingflo]

Hallo ich möchte gerne alle geöffneten Datein auf einen bestimmten Text durchsuchen.

Ich mache es bisjetzt so, dass ich
die geöffneten Datein (im PageControl3) durchgehe und dann den Text suche und in einer ListBox die ergebnisse ausgeben möchte

Aber irgendwie findet er einige sachen nicht oder trägt falsche zeilen und positions Informationen ein

der code:

Delphi-Quellcode:

var
searchtext:string;
i,i1,po,value:integer;
begin
searchtext:=InputBox('In den geöffneten Datein suchen','Suchen nach:','');
if SearchText <>'' then
begin
OutPut.Clear; 
//////////////////////////////////
value:=0;
i1:=0;
 /////////////////////////////////////
while i1 <= PageControl3.PageCount-1 do
begin
  PageControl3.ActivePageIndex:=i1;

  for i:=0 to memo1.Lines.Count-1 do
  begin
    po:=pos(SearchText,memo1.Lines[i]) ;
    if po >0 then
    begin
      OutPut.items.Add('"'+SearchText+'" wurde Gefunden im Dokument: -'+inttostr(i1)+'- "'+PageControl3.ActivePage.Caption+'" in: Pos: -'+inttostr(po)+'- Zeile: -'+inttostr(i+1)) ;
      value:=value+1;
    end;

end;


  i1:=i1+1;
end;
showmessage(SearchText+' wurde '+inttostr(value)+' mal gefunden');