1 Topic by RasNikGal (edited by RasNikGal 2020-10-07 17:00:38)

  • From: Россия
  • Registered: 2019-10-06
  • Posts: 74

Topic: Прочитать значение из реестра в ComboBox

Здравствуйте помогите пожалуйста
записал значение ComboBox в реестр
VAR
lang: integer;
REG: TRegistry;
Begin
REG := TRegistry.Create;
REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\'+APP_NAME,true);
REG.WriteString('lang', FloatToStr(FORM_SETTINGS.ComboBoxLNG.dbItemID));
REG.CloseKey;
REG.Free;
end
а вот как прочить в ComboBox не пойму? делаю так

REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\'+APP_NAME,true);
REG.ReadString('lang',IntToStr(FORM_SETTINGS.ComboBoxLNG.dbItemID));

выдаёт ошибку too many actual parameters (слишком много фактических параметров) а каких понять не могу
заранее спасибо

Языковая локализация ПО.
Локализа́ция програ́ммного обеспече́ния - процесс адаптации программного обеспечения к культуре какой-либо страны. Как частность — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Прочитать значение из реестра в ComboBox

VAR
lang: integer;
REG: TRegistry;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.ComboBox1.Items.Add('Привет');
  Form1.ComboBox1.Items.Add('Пока');

  Form1.ComboBox2.Items.Add('Привет');
  Form1.ComboBox2.Items.Add('Пока');
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
REG := TRegistry.Create;
REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\res',true);
REG.WriteInteger('lang',Form1.ComboBox1.ItemIndex);
REG.CloseKey;
REG.Free;
end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
sKey:string;
Begin
REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\res',true);
Form1.ComboBox2.ItemIndex:=REG.ReadInteger('lang');
end;
  • From: Россия
  • Registered: 2019-10-06
  • Posts: 74

Re: Прочитать значение из реестра в ComboBox

СПАСИБО ЗА ПОМОЩЬ

Языковая локализация ПО.
Локализа́ция програ́ммного обеспече́ния - процесс адаптации программного обеспечения к культуре какой-либо страны. Как частность — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой.
  • From: Россия
  • Registered: 2019-10-06
  • Posts: 74

Re: Прочитать значение из реестра в ComboBox

Простите поправлю

не работал код вернее все работало только из реестра не считывал значение, добавил строку и все заработало (СТРОКУ УКАЗАЛ СТРЕЛКОЙ)

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
REG := TRegistry.Create; <------------------------------------------------------------------
REG.Access := KEY_ALL_ACCESS;
REG.RootKey := HKEY_CURRENT_USER;
REG.OpenKey('software\res',true);
REG.WriteInteger('lang',Form1.ComboBox1.ItemIndex);
REG.CloseKey;
REG.Free;
end;

Языковая локализация ПО.
Локализа́ция програ́ммного обеспече́ния - процесс адаптации программного обеспечения к культуре какой-либо страны. Как частность — перевод пользовательского интерфейса, документации и сопутствующих файлов программного обеспечения с одного языка на другой.