Delphi

DillerInc · Отправлено: **21:56, 20-02-2007** | #2

alexa___
Использовать WinAPI для работы с реестром.
Для вывода целого значения типа DWORD в поле Edit использовать функцию IntToHex.

alexa___ · Отправлено: **10:13, 21-02-2007** | #3

А можно без WinAPI?

DedAlex · Отправлено: **12:19, 21-02-2007** | #4

alexa___
Можно. Использовать объект TRegistry.

alexa___ · Отправлено: **12:56, 21-02-2007** | #5

Да это понятно (со строковыми проблем нет). Надо Dword вытащить, сконвертить наверное.
Если не трудно, дайте конкретный пример.

DedAlex · Отправлено: **19:55, 21-02-2007** | #6

alexa___

Код:

procedure TForm1.LoadButtonClick(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if Reg.OpenKey ( '\*' , False ) then
    Edit1.Text := IntToStr ( Reg.ReadInteger ( 'DWORD' ) );
  Reg.Free;
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if Reg.OpenKey ( '\*' , False ) then
    Reg.WriteInteger ( 'DWORD' , StrToInt ( Edit1.Text ) );
  Reg.Free;
end;

Проверок на введенные данные нет.
Если надо в десятичной системе, то так, а если в шестнадцатичеричной, при чтении IntToStr заменить на IntToHex, а при записи переводить вручную.