Чтение из ini файла(Ошибка)

[xsaroo]

Вот написал код для чтения последнего пути бд но ругается на ошибку хотя все правильно (этот код работает у меня в другой программе без ошибок) но в это ругается на "Login".
Вот код

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

[Человек_Борща]

Ну так не знает он что за login, если это метод и почему он в while цикле...

[Аватар]

Пользуйся полными путями для обращения к ini и базе. Проблем не будет.
ExtractFilePath(Application.ExeName ) - каталог exe-файла

[xsaroo]

Спасибо.
Все заработало но когда я хочу запихнуть этот код в Oncreate( на певоначальную форму) он при запуске выдает ошибку мол модул нарушает права .... но когда это на кнопке все норм

[Volkogriz]

Сообщение от xsaroo

Спасибо.
Все заработало но когда я хочу запихнуть этот код в Oncreate( на певоначальную форму) он при запуске выдает ошибку мол модул нарушает права .... но когда это на кнопке все норм

var
MyIni: TIniFile;//Глобально

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form3.con1.Connected:=false;
  Form3.ADOQuery1.Active:=false;
  MyIni := TIniFile.Create('Settings.ini');
end;

procedure TForm1.FormShow(Sender: TObject);
var
PathToDB:string;
begin
  PathToDb := MyIni.ReadString('DB', 'Path', '');
  // Пытаемся залогиниться. Если не вышло, то...
  while (not login(PathToDb)) do
  begin  //..идем по старому пути: запрашиваем путь к файлу БД
    If not OpenDialog1.Execute then exit;
    PathToDb:=Opendialog1.FileName;
  end;
  // Не забываем записать путь к БД!
  MyIni.WriteString('DB', 'Path', PathToDb);
  MyIni.Free;
end;

[evg_m]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form3.con1.Connected:=false;
  Form3.ADOQuery1.Active:=false;
  MyIni := TIniFile.Create('Settings.ini');
end;

когда создается Form1, то Form3 еще не существует (не создана) =>обращение к несуществующему объекту => Access Violation

ошибку мол модул нарушает права ....

но когда это на кнопке все норм

то все формы (в т.ч Form3) уже созданы и все нормально.

[Stertor]

Надеюсь, понял свою ошибку.

[саша40]

Сообщение от xsaroo

Спасибо.
Все заработало но когда я хочу запихнуть этот код в Oncreate( на певоначальную форму) он при запуске выдает ошибку мол модул нарушает права .... но когда это на кнопке все норм

запихни в onShow, потому что у тебя ещё формы остальные не создались.

[Stilet]

мол модул нарушает права

Лучше напиши ошибку так как она звучит на аглицком )