| /trunk/FinderForm.dfm |
|---|
| 28,6 → 28,7 |
| Height = 21 |
| Anchors = [akLeft, akTop, akRight] |
| TabOrder = 0 |
| ExplicitWidth = 529 |
| end |
| object Memo1: TMemo |
| Left = 8 |
| 38,6 → 39,8 |
| Lines.Strings = ( |
| 'Results') |
| TabOrder = 1 |
| ExplicitWidth = 619 |
| ExplicitHeight = 253 |
| end |
| object Button1: TButton |
| Left = 629 |
| 46,8 → 49,8 |
| Height = 25 |
| Anchors = [akTop, akRight] |
| Caption = 'Search' |
| Default = True |
| TabOrder = 2 |
| OnClick = Button1Click |
| ExplicitLeft = 552 |
| end |
| end |
| /trunk/FinderForm.pas |
|---|
| 35,21 → 35,17 |
| procedure TfrmFinder.Button1Click(Sender: TObject); |
| var |
| q: TADODataSet; |
| cntFound: integer; |
| begin |
| memo1.Lines.Clear; |
| EnableDisableControls(false); |
| try |
| cntFound := 0; |
| q := conn.GetTable('select filename from '+TableName+' where filename like '+conn.SQLStringEscape('%'+edit1.Text+'%')+' order by filename'); |
| while not q.Eof do |
| begin |
| memo1.Lines.Add(q.Fields[0].AsString); |
| Inc(cntFound); |
| if StopRequest then Abort; |
| q.Next; |
| end; |
| ShowMessageFmt('Done. Found %d files', [cntFound]); |
| finally |
| EnableDisableControls(true); |
| end; |
| /trunk/IndexCreatorForm.dfm |
|---|
| 3,7 → 3,7 |
| Top = 0 |
| Caption = 'ViaThinkSoft Directory Hasher' |
| ClientHeight = 611 |
| ClientWidth = 884 |
| ClientWidth = 877 |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| 12,11 → 12,12 |
| Font.Style = [] |
| FormStyle = fsMDIChild |
| OldCreateOrder = False |
| Position = poDefault |
| Visible = True |
| OnClose = FormClose |
| OnShow = FormShow |
| DesignSize = ( |
| 884 |
| 877 |
| 611) |
| PixelsPerInch = 96 |
| TextHeight = 13 |
| 23,7 → 24,7 |
| object Label1: TLabel |
| Left = 24 |
| Top = 279 |
| Width = 834 |
| Width = 827 |
| Height = 13 |
| Anchors = [akLeft, akTop, akRight] |
| AutoSize = False |
| 154,7 → 155,7 |
| object Memo1: TMemo |
| Left = 584 |
| Top = 25 |
| Width = 290 |
| Width = 283 |
| Height = 193 |
| Anchors = [akLeft, akTop, akRight] |
| ScrollBars = ssBoth |
| 162,7 → 163,7 |
| WordWrap = False |
| end |
| object Button4: TButton |
| Left = 785 |
| Left = 778 |
| Top = 224 |
| Width = 89 |
| Height = 33 |
| 182,7 → 183,7 |
| object Memo2: TMemo |
| Left = 24 |
| Top = 440 |
| Width = 850 |
| Width = 843 |
| Height = 156 |
| Anchors = [akLeft, akTop, akRight, akBottom] |
| Lines.Strings = ( |
| 192,7 → 193,7 |
| WordWrap = False |
| end |
| object cbVerboseLogs: TCheckBox |
| Left = 779 |
| Left = 772 |
| Top = 417 |
| Width = 97 |
| Height = 17 |
| /trunk/MainForm.pas |
|---|
| 58,7 → 58,6 |
| FTableName := ini.ReadString('IndexerSuite', 'TableName', 'files'); |
| Caption := Caption + Format(' [%s]', [FTableName]); |
| ADOConnection1.CommandTimeout := ini.ReadInteger('IndexerSuite', 'CommandTimeout', 5*60); |
| ADOConnection1.ConnectionString := ini.ReadString('IndexerSuite', 'ConnectionString', ''); |
| if ADOConnection1.ConnectionString = '' then |
| begin |