Ошибка чтения INI файла.

← →
zeos (2002-06-13 19:12) [0]

Всем доброго дня!

У меня проблема при чтении данных из ini файла. Функцию чтения ReadIni; я ставил на событиях OnCreate, OnShow, OnActivate и везде одно и тоже - выводится ошибка.

//чтение данных из .INI файла procedure TForm1.ReadIni; begin IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),".INI")); try if IniFile.ReadBool("Timer","Enabled",RxClock1.AlarmEnabled) = True then Form1.RunAlarmClock; finally IniFile.Free; end; end; procedure TForm1.RunAlarmClock; var Hour, Minute : string[2]; begin Hour := Copy(MaskEdit1.Text,1,2); Minute := Copy(MaskEdit1.Text,3,4); RxClock1.AlarmEnabled := True; RxClock1.AlarmHour := StrToInt(Hour); RxClock1.AlarmMinute := StrToInt(Minute); RxClock1.AlarmSecond := 00; CoolTrayIcon1.Hint:="Время активации "+Hour+":"+Minute; Label3D1.Visible := True; ColorBtn6.Visible := False; ColorBtn7.Visible := True; if CheckBox3.Checked then begin CoolTrayIcon1.CycleIcons := False; CoolTrayIcon1.IconList := nil; ImageList1.GetIcon(0, CoolTrayIcon1.Icon); CoolTrayIcon1.Refresh; CoolTrayIcon1.IconVisible := True; CoolTrayIcon1.CycleIcons := True; CoolTrayIcon1.IconList := ImageList1; CoolTrayIcon1.CycleInterval := 400; end else begin CoolTrayIcon1.CycleIcons := False; CoolTrayIcon1.IconList := nil; ImageList1.GetIcon(0, CoolTrayIcon1.Icon); CoolTrayIcon1.Refresh; CoolTrayIcon1.IconVisible := True; end; WriteIni; Form1.Hide; end;

Что я делаю неправильно? Помогите, голова разкалывается!

← →
Song © (2002-06-13 19:24) [1]

В какой именно строчке ошибка ?
Что такое RxClock ?

← →
zeos (2002-06-13 19:54) [2]

>В какой именно строчке ошибка ?
В коде нет ошибок, всё нормально компилируется.
Выводится окно с ошибкой при запуске программы, именно тогда, когда идёт чтение этой строки из ini файла (а точнее выполнение функции RunAlarmClock):

if IniFile.ReadBool("Timer","Enabled",RxClock1.AlarmEnabled) = True then Form1.RunAlarmClock;

А неприятное сообщение такое: Cannot change Visible in OnShow or OnHide.

>Что такое RxClock ?

Это компонент, часы с будильником, все навароты.

← →
Song © (2002-06-13 20:54) [3]

Т.е. внутри самой procedure TForm1.RunAlarmClock; ???

На onShow тоже не работает ?

← →
zeos (2002-06-13 22:04) [4]

Что т.е. внутри самой procedure TForm1.RunAlarmClock; ???

>На onShow тоже не работает ?
Именно!

← →
zeos (2002-06-13 22:07) [5]

Поправочка:
>На onShow тоже не работает ?

Работает на OnCreate, OnShow и на OnActivate, но при запуске проги выводится ошибка - сообщение: Cannot change Visible in OnShow or OnHide.

Вот в чём проблема.

Может, трабла в компоненте (RxClock1.AlarmEnabled)? Если его убрать, то ошибка останется? Если нет - то пиши разработчику компоненты об обнаруженном баге.
А насчет сообщения, оно появляется на какой строчке в процедуре RunAlarmClock?

← →
zeos (2002-06-14 09:21) [7]

>то пиши разработчику компоненты об обнаруженном баге.

В процессе работы с прогаммой все нормально, так что это просто не может быть! Проблема в чём-то другом.

Ошибка чтения INI файла. Найти похожие ветки