Что то не ладится с TRegistry.Посмотрите пожалуйста где заковыка

← →
onix © (2002-05-22 09:17) [0]

procedure TFPrint.Set_SizeLabel(Comp : TObject; Key : string; SubKey: integer);
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
with Reg do begin
RootKey := HKEY_CURRENT_USER;

try
if KeyExists(Key) then begin
case Subkey of
1 : TQRLabel(Comp).Size.Top := ReadFloat(Key);
2 : TQRLabel(Comp).Size.Left := ReadFloat(Key);
3 : TQRLabel(Comp).Size.Height := ReadFloat(Key);
4 : TQRLabel(Comp).Size.Width := ReadFloat(Key);
end;
end else begin
OpenKey(Key, true);
case SubKey of
1 : WriteFloat(Key, TQRLabel(Comp).Size.Top);
2 : WriteFloat(Key, TQRLabel(Comp).Size.Left);
3 : WriteFloat(Key, TQRLabel(Comp).Size.Height);
4 : WriteFloat(Key, TQRLabel(Comp).Size.Width);
end;
end;
finally
CloseKey;
end;
end;
Reg.Free;
end;

Суть проблемы такова. При первом проходе когда ничего этого в реесте нет то создание ключей и запись в них значений проходит без замечаний. А вот при втором запуске программы, считать эти значения и установить их не удаётся, т.е. часть этого кода выдает ошибку:
if KeyExists(Key) then begin
case Subkey of
1 : TQRLabel(Comp).Size.Top := ReadFloat(Key);
2 : TQRLabel(Comp).Size.Left := ReadFloat(Key);
3 : TQRLabel(Comp).Size.Height := ReadFloat(Key);
4 : TQRLabel(Comp).Size.Width := ReadFloat(Key);
end;

Заранее спасибо за помощь. Дмитрий

← →
Donal_Graeme (2002-05-22 09:23) [1]

хм.. а OpenKey разве в этом случае делать не надо? :-)

← →
Lord Warlock © (2002-05-22 09:23) [2]

Top := ReadFloat(Key);//???

Top := Trunc(ReadFloat(Key)); хотя бы...

← →
Lord Warlock © (2002-05-22 09:25) [3]

> Donal_Graeme (22.05.02 09:23)

... и это тоже...

← →
Donal_Graeme (2002-05-22 09:30) [4]

> Lord Warlock © (22.05.02 09:23)

не, с флоатами всё правильно. обрати внимание, что эти свойства ставятся у TQRLabel - т.е. Quick Report Label. они имеют тип Extended

Большое спасибо, не хватало как раз
OpenKey"я. Всё заработало.

> они имеют тип Extended

точно, не посмотрел...

Что то не ладится с TRegistry.Посмотрите пожалуйста где заковыка Найти похожие ветки