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 |