mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 10:36:01 +02:00
parent
a0ce649f8c
commit
171eed83db
@ -47,7 +47,7 @@ begin
|
|||||||
s := copy(s, 2, length(s)-2)
|
s := copy(s, 2, length(s)-2)
|
||||||
else
|
else
|
||||||
if (s[1] = '''') and (s[length(s)] = '''') then
|
if (s[1] = '''') and (s[length(s)] = '''') then
|
||||||
s := copy(s, 2, length(s)-2)
|
s := copy(s, 2, length(s)-2);
|
||||||
|
|
||||||
if s = '' then
|
if s = '' then
|
||||||
exit;
|
exit;
|
||||||
|
Loading…
Reference in New Issue
Block a user