paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 08:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: ValueFormatter ord-to-name, parse new_ident = know_ident + 123

Browse Source
This commit is contained in:
Martin 2024-04-28 21:54:38 +02:00
parent 17142eaf96
commit 60c85af016
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/packages/idedebugger/idedebuggervalueformatterordinaltoname.pas
View File

@ -70,6 +70,11 @@ implementation
{ TIdeDebuggerValueFormatterOrdinalToNameFrame }
function DoCompareIdents(const Data1, Data2: string): Integer;
begin
Result := CompareStr(UpperCase(Data1), UpperCase(Data2));
end;
procedure TIdeDebuggerValueFormatterOrdinalToNameFrame.ReadFrom(
AFormatter: ILazDbgIdeValueFormatterIntf);
var
@ -302,6 +307,7 @@ end;
procedure TIdeDbgValueFormatterOrdinalToName.Init;
begin
FNameMap := TNameMap.Create;
FNameMap.OnDataCompare := @DoCompareIdents;
inherited Init;
end;