Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

0: issue with compiling in delphi7

Browse Source
This commit is contained in:
evgeny-k 2022-08-04 23:15:39 +03:00
parent 5f33baadd3
commit 922338afa0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSDebugger.pas
View File

@ -532,7 +532,7 @@ function TPSCustomDebugExec.GetCallStack(var Count: Cardinal): tbtString;
Result:= Result + ParamList.Items[I] + ': ' + Result:= Result + ParamList.Items[I] + ': ' +
PSVariantToString(NewTPSVariantIFC(FStack[Cardinal(Longint(StackBase) - Longint(I) - 1)], False), '') + '; '; PSVariantToString(NewTPSVariantIFC(FStack[Cardinal(Longint(StackBase) - Longint(I) - 1)], False), '') + '; ';
if Result <> '' then if Result <> '' then
Result := tbtString(String(Result).Remove(Length(Result)-2)); SetLength(Result, Length(Result)-2);
end; end;
var var