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 56... Line 56...
56 
    ini := TMemIniFile.Create(iniFilename);
 56 
    ini := TMemIniFile.Create(iniFilename);
57 
 
 57 
 
58 
    FTableName := ini.ReadString('IndexerSuite', 'TableName', 'files');
 58 
    FTableName := ini.ReadString('IndexerSuite', 'TableName', 'files');
59 
    Caption := Caption + Format(' [%s]', [FTableName]);
 59 
    Caption := Caption + Format(' [%s]', [FTableName]);
60 
 
 60 
 
- 
 
 61 
    ADOConnection1.CommandTimeout := ini.ReadInteger('IndexerSuite', 'CommandTimeout', 5*60);
61 
    ADOConnection1.ConnectionString := ini.ReadString('IndexerSuite', 'ConnectionString', '');
 62 
    ADOConnection1.ConnectionString := ini.ReadString('IndexerSuite', 'ConnectionString', '');
62 
    if ADOConnection1.ConnectionString = '' then
 63 
    if ADOConnection1.ConnectionString = '' then
63 
    begin
 64 
    begin
64 
      ShowMessage('Please define a ConnectionString in the INI file.');
 65 
      ShowMessage('Please define a ConnectionString in the INI file.');
65 
      Close;
 66 
      Close;