mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Encloses string data within quotation marks (Watch List dialog).
This commit is contained in:
parent
34950c80ea
commit
087c320631
|
@ -8249,18 +8249,24 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
IF IdeDebugMode > 0 THEN
|
IF IdeDebugMode > 0 THEN
|
||||||
IF usedVariableList(x).subfunc = currentScope$ OR usedVariableList(x).subfunc = "" THEN
|
IF usedVariableList(x).subfunc = currentScope$ OR usedVariableList(x).subfunc = "" THEN
|
||||||
IF usedVariableList(x).watch THEN
|
IF usedVariableList(x).watch THEN
|
||||||
|
isString = (INSTR(usedVariableList(x).varType, "STRING *") > 0 OR usedVariableList(x).varType = "STRING")
|
||||||
IF usedVariableList(x).isarray THEN
|
IF usedVariableList(x).isarray THEN
|
||||||
temp$ = usedVariableList(x).mostRecentValue
|
temp$ = usedVariableList(x).mostRecentValue
|
||||||
IF LEN(temp$) THEN l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + "{"
|
IF LEN(temp$) THEN l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + "{"
|
||||||
DO WHILE LEN(temp$)
|
DO WHILE LEN(temp$)
|
||||||
storageSlot& = CVL(LEFT$(temp$, 4))
|
storageSlot& = CVL(LEFT$(temp$, 4))
|
||||||
temp$ = MID$(temp$, 5)
|
temp$ = MID$(temp$, 5)
|
||||||
|
IF isString THEN l$ = l$ + CHR$(34)
|
||||||
l$ = l$ + StrReplace$(vWatchArrayReceivedData$(storageSlot&), CHR$(0), " ")
|
l$ = l$ + StrReplace$(vWatchArrayReceivedData$(storageSlot&), CHR$(0), " ")
|
||||||
|
IF isString THEN l$ = l$ + CHR$(34)
|
||||||
IF LEN(temp$) THEN l$ = l$ + ","
|
IF LEN(temp$) THEN l$ = l$ + ","
|
||||||
LOOP
|
LOOP
|
||||||
IF LEN(usedVariableList(x).mostRecentValue) THEN l$ = l$ + "}"
|
IF LEN(usedVariableList(x).mostRecentValue) THEN l$ = l$ + "}"
|
||||||
ELSE
|
ELSE
|
||||||
l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor) + StrReplace$(usedVariableList(x).mostRecentValue, CHR$(0), " ")
|
l$ = l$ + " = " + CHR$(16) + CHR$(variableNameColor)
|
||||||
|
IF isString THEN l$ = l$ + CHR$(34)
|
||||||
|
l$ = l$ + StrReplace$(usedVariableList(x).mostRecentValue, CHR$(0), " ")
|
||||||
|
IF isString THEN l$ = l$ + CHR$(34)
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
ELSE
|
ELSE
|
||||||
|
|
Loading…
Reference in a new issue