[Rat]

есть кусок кода:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure TConnectToServerForm.FormShow(Sender: TObject); var   Registry: TRegistry; begin   Registry := TRegistry.Create;     // Set position in list server   Registry.RootKey := HKEY_CURRENT_USER;   Registry.OpenKey('Software\Configurator', true);   try     SQLServerCombobox.ItemIndex := Registry.ReadInteger('LastIndexServerList');   except     SQLServerCombobox.ItemIndex := 0;   end;   Registry.CloseKey;     // Set login in list server   Registry.RootKey := HKEY_CURRENT_USER;   Registry.OpenKey('Software\Configurator', true);   try     SQLLoginEdit.Text := Registry.ReadString('LastLoginServerList');   except     SQLLoginEdit.Text := '';   end;   Registry.CloseKey;     Registry.Free;   end;

Exeption c текстом:
First chance exception at $75F59617. Exception class ERegistryException with message 'Failed to get data for 'LastIndexServerList''. Process configurator.exe (3932)

Выскакивает только один раз при чтении именно этого Int значения.

При чтении строкового параметра exception не выскакивает.

Почему при чтении строкового параметра exception не выскакиевает? Ни одного из параметров в реестре нет. Ни строкового ни интового.

---
win7, d2010

[Klo]

программу запускаешь с правами админа?

[Bars1992]

Не в провах админа дело. Просто он читаетзначение, а его нету. там где у тебя SQLServerCombobox.ItemIndex := 0; добав ище одну строку
WriteInteger('Value',0); У тебя созастца отдельная ячейка в реестре и при следующем запуске ошибку выбивать не будет.

[Klo]

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

Не в провах админа дело. Просто он читаетзначение, а его нету. там где у тебя SQLServerCombobox.ItemIndex := 0; добав ище одну строку
WriteInteger('Value',0); У тебя созастца отдельная ячейка в реестре и при следующем запуске ошибку выбивать не будет.

2 bars: Ну это само собой, перед тем, как что-либо читать из реестра нужно удостовериться есть ли это значение вообще... Думаю топикстартер не дурак, чтобы читать несуществующее значение.

[Yurk@]

Rat, при чтении строкового параметра ошибки и не будет т.к. значение отсутствие значения это уже есть какая-то строка, а для числа это недопустимое значение, вот он и ругается.
Я делал так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function IntKeyIsPresent(rKey:HKEY; Path, Name:string; var KeyValue:integer):boolean; begin Result:=False;   try     R:=TRegistry.Create;     R.RootKey:=rKey;     R.OpenKey(Path,True);     if R.KeyExists(Name)=True       then       begin       KeyValue:=R.ReadInteger(Name);       Result:=True;       end       else KeyValue:=0;     R.CloseKey;   Except R.Free;   end; end;

[NumLock]

потому что в писании написано:

TRegistry.ReadInteger:
If the Registry entry does not contain an integer, an exception is raised.

TRegistry.ReadString:
If there is no Registry entry with the specified name, ReadString returns an empty string.

отсутствие ключа это не integer, но пустая строка

[Rat]

NumLock, Вы правы. Проглядел это в хелпе.
Всё теперь понятно.

Еще вопросик в догонку. Я так понял что Registry.RootKey := HKEY_CURRENT_USER; необходимо вызывать каждый раз перед открытием ключа, иначе после Registry.CloseKey; у меня Registry.RootKey становиться равным последнему открытому ключу. Это заметно при записи.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure TConnectToServerForm.FormClose(Sender: TObject;   var Action: TCloseAction); var   i : Integer;   Registry: TRegistry; begin   // Save list servers   Registry := TRegistry.Create;     Registry.RootKey := HKEY_CURRENT_USER;   Registry.OpenKey('Software\Configurator\ListServer', true);   for i := 0 to SQLServerComboBox.Items.Count - 1 do   begin     Registry.WriteString('server' + IntToStr(i), SQLServerCombobox.items.Strings[i]);   end;   Registry.CloseKey;     Registry.RootKey := HKEY_CURRENT_USER;   // Save position from server list to registry   Registry.OpenKey('Software\Configurator', true);     Registry.WriteInteger('LastIndexServerList', SQLServerCombobox.ItemIndex);   Registry.CloseKey;     Registry.RootKey := HKEY_CURRENT_USER;   // Save login servers to registry   Registry.OpenKey('Software\Configurator', true);     Registry.WriteString('LastLoginServerList', SQLLoginEdit.Text);   Registry.CloseKey;     Registry.Free; end;

Если не указывать Registry.RootKey := HKEY_CURRENT_USER;
то у меня создаются ключи Software\Configurator\Software\Configurator

Я прав?

[NumLock]

TRegistry создается с RootKey = HKEY_CURRENT_USER. RootKey сам не меняется, что, имхо, правильно.