Сохранение последнего пути базы данных

[xsaroo]

Luuzuk не хотите 300 руб заработать) за написание кода?)

[Luuzuk]

А как вы собираетесь мне их передать? :-D

[xsaroo]

WebMoney и нет проблем

[Luuzuk]

А вы меня не обманете?

[xsaroo]

могу деньги вперед ток надеюсь вы меня тоже не обманите)
или можно так я вам пол суммы даю вы мне пол кода а потом я отдаю вам вторую чась суммы а вы мне код ост часть)

[Luuzuk]

uses IniFiles;

procedure TForm1.Button4Click(Sender: TObject);
var
MyIni: TIniFile;
PathToDB:string;
begin
  adoconnection1.Connected:=false;
  ADOQuery1.Active:=false;
  // настройки храним в файле Settings.ini
  MyIni := TIniFile.Create('Settings.ini');
  // Читаем оттуда последний путь к БД
  PathToDb: = MyIni.ReadString('DB', 'Path', '');
  // Пытаемся залогиниться. Если не вышло, то...
  while (not Login(PathToDb)) then
  begin  //..идем по старому пути: запрашиваем путь к файлу БД
    ShowMessage('Не удалось подключиться к БД!');
    If not OpenDialog1.Execute then exit;
    PathToDb:=Opendialog1.FileName;    
  end;
  // Не забываем записать путь к БД!
  MyIni.WriteString('DB', 'Path', PathToDb);
end;

// А это так, функция. принимает путь к БД.
// Вернет False, если при подключении к БД произошла ошибка
function Login(PathToDb: string): boolean;
begin
  try
    adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=' +PathToDb+';Persist Security Info=False';
    ADOConnection1.LoginPrompt := False;
    adoconnection1.Connected:=true;
    ADOQuery1.Connection:=adoconnection1;
    ADOQuery1.Active:=true;
	Result:=true;
  except
    adoconnection1.Connected:=false;
    ADOQuery1.Active:=false;
    Result:=false;
  end;
end;

[xsaroo]

Luuzuk мож дадите свой скайп или что нить еще что бы побыстрее общение шло)
в скайпе микрофон поломан) зато хоть чатится быстрее

[Luuzuk]

Luuzuk_makeev