paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 12:30:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: fix expanding array. Take low-bound into account. Issue #41073

Browse Source
This commit is contained in:
Martin 2024-08-12 15:27:58 +02:00
parent 4150057274
commit 6348f103a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/debugger.pp
View File

@ -4541,7 +4541,7 @@ begin
TryStrToInt64(Watch.DisplayName, i) and
(i >= ASrcValue.FResultData.LowBound) and (i < ASrcValue.FResultData.Count)
then begin
ASrcValue.FResultData.SetSelectedIndex(i);
ASrcValue.FResultData.SetSelectedIndex(i-ASrcValue.FResultData.LowBound);
// TODO: mark this as a copy / or don't store it, then no copy is needed
FResultData := ASrcValue.FResultData.SelectedEntry.CreateCopy;
exit;