| 149 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 150 |  | ext := UpperCase(ExtractFileExt(FileName)); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 151 |  |  | 
 
 
 
 
 
 
 
 
 
 
 | 152 | < | if ext = 'ODB' then | 
 
 
 
 
 
 
 
 
 | 152 | > | if ext = '.OLDB' then | 
 
 
 
 
 
 
 
 
 
 
 | 153 |  | backend := DB_ADB | 
 
 
 
 
 
 
 
 
 
 
 | 154 | < | else if ext = 'DAT' then | 
 
 
 
 
 
 
 
 
 | 154 | > | else if ext = '.DAT' then | 
 
 
 
 
 
 
 
 
 
 
 | 155 |  | backend := DB_ONI | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 156 |  | else | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 157 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 172 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 173 |  | FLastID := FConnections[i].ConnectionID; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 174 |  | Result := FLastID; | 
 
 
 
 
 
 
 
 | 175 | + | Msg := SM_OK; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 176 |  | end | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 177 |  | else | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 178 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 180 |  | FConnections[i].Free; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 181 |  | FConnections[i] := nil; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 182 |  | SetLength(FConnections, Length(FConnections) - 1); | 
 
 
 
 
 
 
 
 
 
 
 | 183 | < | Msg := SM_UnknownError; | 
 
 
 
 
 
 
 
 
 | 183 | > | Msg := CreateMsg; | 
 
 
 
 
 
 
 
 
 
 
 | 184 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 185 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 186 |  |  |