И снова ADOconnection

[city32]

Подскажите. Следующая ситуация. База Access. Подключение через ADOcinnection. Есть форма смена пароля на ней Edit и OpenDialog1.Execute.
При нажатии на Edit срабатывает OpenDialog1.Execute

procedure TForm11.Edit1Click(Sender: TObject);
var
st:TStrings;
begin
if OpenDialog1.Execute then (Sender as TEdit).Text := OpenDialog1.FileName;
st := TStringList.Create;
try
st.Text := Edit1.Text;
st.SaveToFile('c:\Program Files\******\bd.txt');
finally
st.Free;
     form1.ADOQuery1.Active:=false;
     form1.ADOConnection1.Connected:=False;
     form1.ADOConnection1.ConnectionString:=
     'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
     OpenDialog1.FileName+';Persist Security Info=False';
     form1.ADOConnection1.Connected:=true;
     form1.ADOQuery1.Active:=true;
     form1.visible:=true;
     form11.visible:=false;
     end;

Путь к базе сохраняется в файле bd.txt. А как теперь сделать чтобы каждый раз при запуске программы данные в ADOConnection1.ConnectionString брались из этого текстового файла?

[evg_m]

чтобы каждый раз при запуске программы данные

событие OnCreate

procedure Tform11.OnCreate(sender: TObject);

в ADOConnection1.ConnectionString брались из этого текстового файла?

st:=TstringList.Create;
st.LoadToFile('c:\Program Files\******\bd.txt');

далее устанавливаем ADOconnection

[rdama]

Прочитать о такой вещи как ini файлы. И как работать с ними в Delphi.

[city32]

спасибо разобрался)))
в коде вместо loadtofile надо loadfromfile