Я делаю так:

if EditConnectionString(ADOConnection) then

if (MessegeDLG('Сохранить настройки?',mtConferm,[mbYes,mbNo],0)=mrYes) then

begin

AssignFile(f, 'connect.udl'); Rewrite(f);

writeln(f,'[oledb]');

write(f, ADOConnection.ConnectionString);

CloseFile(f);

end;

Во-первых, запрос на сохранение настроек выводится и при загрузке настроек из файла, что не есть гуд.

Во-вторых, пытаюсь загрузить настройки из файла - возникает ошибка, либо "неверный составной файл" (было раньше, но стандартный DBDEMOS.udl принимал), а теперь "неверный параметр" (даже на DBDEMOS.udl). Короче не работает.

Может кто-нибудь посоветовать как сделать, чтоб все работало првильно? Можт я со свойствами у ADOConnection напутал?

ADOConnection.ConnectionString := ConString;

Без всяких UDL и т.п.

....

var

FText : TextFile;

AConStr : String;

begin

//-Запись строки подключения

AssignFile(FText, 'ADOCONNECTIONSTRNG.SET');

Rewrite(FText);

AConStr := ADOConnection.ConnectionString;

WriteLn(FText, AConStr);

CloseFile(FText);

.....

//Чтение строки подключения

Reset(FText);

ReadLn(FText, AConStr);

with ADOConnection do

begin

Connected := False

ConnectionString := AConStr;

Connected := True;

end;//with

end;