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