- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
regini: TRegIniFile;
begin
RegIni := TRegIniFile.Create('');
try
RegIni.RootKey := HKEY_CURRENT_USER;
res.Text:= RegIni.ReadString(Path.Text, key.Text, '');
finally
RegIni.Free;
end;
end;
Если запускать в отладчике IDE, то на строке RegIni.Free возникает данная ошибка:
Если запустить исполняемый файл напрямую, ошибки не будет. Кстати, в Delphi 7 этот же код также выполняется без ошибок.