/trunk/FinderForm.dfm |
---|
28,7 → 28,6 |
Height = 21 |
Anchors = [akLeft, akTop, akRight] |
TabOrder = 0 |
ExplicitWidth = 529 |
end |
object Memo1: TMemo |
Left = 8 |
39,8 → 38,6 |
Lines.Strings = ( |
'Results') |
TabOrder = 1 |
ExplicitWidth = 619 |
ExplicitHeight = 253 |
end |
object Button1: TButton |
Left = 629 |
49,8 → 46,8 |
Height = 25 |
Anchors = [akTop, akRight] |
Caption = 'Search' |
Default = True |
TabOrder = 2 |
OnClick = Button1Click |
ExplicitLeft = 552 |
end |
end |
/trunk/FinderForm.pas |
---|
35,17 → 35,21 |
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 = 877 |
ClientWidth = 884 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
12,12 → 12,11 |
Font.Style = [] |
FormStyle = fsMDIChild |
OldCreateOrder = False |
Position = poDefault |
Visible = True |
OnClose = FormClose |
OnShow = FormShow |
DesignSize = ( |
877 |
884 |
611) |
PixelsPerInch = 96 |
TextHeight = 13 |
24,7 → 23,7 |
object Label1: TLabel |
Left = 24 |
Top = 279 |
Width = 827 |
Width = 834 |
Height = 13 |
Anchors = [akLeft, akTop, akRight] |
AutoSize = False |
155,7 → 154,7 |
object Memo1: TMemo |
Left = 584 |
Top = 25 |
Width = 283 |
Width = 290 |
Height = 193 |
Anchors = [akLeft, akTop, akRight] |
ScrollBars = ssBoth |
163,7 → 162,7 |
WordWrap = False |
end |
object Button4: TButton |
Left = 778 |
Left = 785 |
Top = 224 |
Width = 89 |
Height = 33 |
183,7 → 182,7 |
object Memo2: TMemo |
Left = 24 |
Top = 440 |
Width = 843 |
Width = 850 |
Height = 156 |
Anchors = [akLeft, akTop, akRight, akBottom] |
Lines.Strings = ( |
193,7 → 192,7 |
WordWrap = False |
end |
object cbVerboseLogs: TCheckBox |
Left = 772 |
Left = 779 |
Top = 417 |
Width = 97 |
Height = 17 |
/trunk/MainForm.pas |
---|
58,6 → 58,7 |
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 |