paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 14:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Locals Dialog: support special chars in extracting raw strings (fpDebug)

Browse Source 
git-svn-id: trunk@62994 -
This commit is contained in:
ondrej 2020-04-16 06:27:33 +00:00
parent f5c6dd57a4
commit fa95a279f6
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
debugger/localsdlg.pp
View File

@ -150,10 +150,22 @@ var
begin begin
Inc(I); Inc(I);
xNum := ''; xNum := '';
while (I <= M) and (AValue[I] in ['0'..'9']) do if (I <= M) and (AValue[I]='$') then
begin begin // hex
xNum := xNum + AValue[I]; // not really fast, but OK for this purpose xNum := xNum + AValue[I];
Inc(I); Inc(I);
while (I <= M) and (AValue[I] in ['0'..'9', 'A'..'F', 'a'..'f']) do
begin
xNum := xNum + AValue[I]; // not really fast, but OK for this purpose
Inc(I);
end;
end else
begin // dec
while (I <= M) and (AValue[I] in ['0'..'9']) do
begin
xNum := xNum + AValue[I]; // not really fast, but OK for this purpose
Inc(I);
end;
end; end;
if TryStrToInt(xNum, xCharOrd) then if TryStrToInt(xNum, xCharOrd) then
begin begin