mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-23 21:59:34 +01: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