mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 03:14:45 +00:00
Merge pull request #502 from SteveMcNeill/main
Optimize string addition somewhat to reduce IDE lag
This commit is contained in:
commit
78cdac13bf
1 changed files with 2 additions and 2 deletions
|
@ -11856,7 +11856,7 @@ SUB ideinsline (i, text$)
|
|||
idegotoline i
|
||||
'insert line
|
||||
textlen = LEN(text$)
|
||||
idet$ = LEFT$(idet$, ideli - 1) + MKL$(textlen) + text$ + MKL$(textlen) + RIGHT$(idet$, LEN(idet$) - ideli + 1)
|
||||
idet$ = LEFT$(idet$, ideli - 1) + (MKL$(textlen) + text$ + MKL$(textlen)) + RIGHT$(idet$, LEN(idet$) - ideli + 1)
|
||||
iden = iden + 1
|
||||
END SUB
|
||||
|
||||
|
@ -12536,7 +12536,7 @@ SUB idesetline (i, text$)
|
|||
|
||||
IF i <> -1 THEN idegotoline i
|
||||
textlen = LEN(text$)
|
||||
idet$ = LEFT$(idet$, ideli - 1) + MKL$(textlen) + text$ + MKL$(textlen) + RIGHT$(idet$, LEN(idet$) - ideli + 1 - CVL(MID$(idet$, ideli, 4)) - 8)
|
||||
idet$ = LEFT$(idet$, ideli - 1) + (MKL$(textlen) + text$ + MKL$(textlen)) + RIGHT$(idet$, LEN(idet$) - ideli + 1 - CVL(MID$(idet$, ideli, 4)) - 8)
|
||||
|
||||
END SUB
|
||||
|
||||
|
|
Loading…
Reference in a new issue