Показать сообщение отдельно
  #7  
Старый 30.06.2010, 10:41
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

ну не то что не нравится... просто в первом случае коннект через АДО второй вариант... хмм... даже не знаю... поэтому и предложил что б формировать коннект так же как и первый.

ПС. а зачем тут else?
Код:
if not CopyFile('base\db1.mdb','base\dbx',true)then
begin
x1:
  if not CopyFile(Pchar('system\db1'), Pchar('base\db'+inttostr(nm)+'.mdb'), true) then
   begin
    nm:=nm+1;
    ShowMessage('Error');
    goto x1;
    end
   else
end
else begin
     ADOConnection1.Connected:=true;
     pyt:='base\db'+inttostr(nm)+'.mdb';
     end;
Ответить с цитированием