mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: TrimQuotes function

Browse source
This commit is contained in:
Alexander Koblov 2019-10-20 08:32:15 +00:00
commit 398ae373f8
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/udcutils.pas
View file

@ -580,7 +580,17 @@ end;
function TrimQuotes(const Str: String): String;
begin
Result:= TrimSet(Str, ['"', '''']);
Result:= Str;
if (Length(Str) > 0) then
begin
if (Str[1] in ['"', '''']) then
begin
if (Length(Str) = 1) then
Result:= EmptyStr
else if (Str[1] = Str[Length(Str)]) then
Result:= Copy(Str, 2, Length(Str) - 2);
end;
end;
end;
function QuoteStr(const Str: String): String;