double-click the error report item can not locate source
Posted: Thu Apr 25, 2019 4:11 am
Issue:
When the error report is displayed, double-click the error report item.
If it is a Project item, you can locate it. If it is Delphi's own Source,
it can't be positioned, no response.
Fix:
madExceptWizard.pas
Read lib option need add platform param
When the error report is displayed, double-click the error report item.
If it is a Project item, you can locate it. If it is Delphi's own Source,
it can't be positioned, no response.
Fix:
madExceptWizard.pas
Read lib option need add platform param
Code: Select all
function GetLibraryStr(const CurrentPlatForm: UnicodeString; str: UnicodeString) : UnicodeString;
var s1 : UnicodeString;
begin
result := '';
s1 :=
(BorlandIDEServices as IOTAServices).GetBaseRegistryKey + UnicodeString('\Library\') + CurrentPlatform;
if (s1 <> '') and (s1[1] = '\') then
Delete(s1, 1, 1);
result := RegReadStr(HKEY_CURRENT_USER, s1, str);
end;