Subversion Repositories indexer_suite

Rev

Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 3
Line 33... Line 33...
33 
  MainForm, AdoConnHelper, IniFiles;
 33 
  MainForm, AdoConnHelper, IniFiles;
34 
 
 34 
 
35 
procedure TfrmFinder.Button1Click(Sender: TObject);
 35 
procedure TfrmFinder.Button1Click(Sender: TObject);
36 
var
 36 
var
37 
  q: TADODataSet;
 37 
  q: TADODataSet;
- 
 
 38 
  cntFound: integer;
38 
begin
 39 
begin
39 
  memo1.Lines.Clear;
 40 
  memo1.Lines.Clear;
40 
  EnableDisableControls(false);
 41 
  EnableDisableControls(false);
41 
  try
 42 
  try
- 
 
 43 
    cntFound := 0;
42 
    q := conn.GetTable('select filename from '+TableName+' where filename like '+conn.SQLStringEscape('%'+edit1.Text+'%')+' order by filename');
 44 
    q := conn.GetTable('select filename from '+TableName+' where filename like '+conn.SQLStringEscape('%'+edit1.Text+'%')+' order by filename');
43 
    while not q.Eof do
 45 
    while not q.Eof do
44 
    begin
 46 
    begin
45 
      memo1.Lines.Add(q.Fields[0].AsString);
 47 
      memo1.Lines.Add(q.Fields[0].AsString);
- 
 
 48 
      Inc(cntFound);
46 
      if StopRequest then Abort;
 49 
      if StopRequest then Abort;
47 
      q.Next;
 50 
      q.Next;
48 
    end;
 51 
    end;
- 
 
 52 
    ShowMessageFmt('Done. Found %d files', [cntFound]);
49 
  finally
 53 
  finally
50 
    EnableDisableControls(true);
 54 
    EnableDisableControls(true);
51 
  end;
 55 
  end;
52 
end;
 56 
end;
53 
 
 57