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; |