paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* quote names with hi-ascii chars

Browse Source
This commit is contained in:
peter 2003-04-04 15:34:25 +00:00
parent 9418c64f71
commit 3c5e8e2b07
1 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
compiler/cutils.pas
View File

@ -621,23 +621,32 @@ uses
var
s1 : string;
i : integer;
quoted : boolean;
begin
if (pos('"',s)>0) then
quoted:=false;
s1:='"';
for i:=1 to length(s) do
begin
s1:='"';
for i:=1 to length(s) do
begin
if s[i]='"' then
s1:=s1+'\"'
else
case s[i] of
'"' :
begin
quoted:=true;
s1:=s1+'\"';
end;
' ',
#128..#255 :
begin
quoted:=true;
s1:=s1+s[i];
end;
else
s1:=s1+s[i];
end;
maybequoted:=s1+'"';
end
else if (pos(' ',s)>0) then
maybequoted:='"'+s+'"'
end;
end;
if quoted then
maybequoted:=s1+'"'
else
maybequoted:=s;
maybequoted:=s;
end;
@ -857,7 +866,10 @@ initialization
end.
{
$Log$
Revision 1.25 2003-01-09 21:42:27 peter
Revision 1.26 2003-04-04 15:34:25 peter
* quote names with hi-ascii chars
Revision 1.25 2003/01/09 21:42:27 peter
* realtostr added
Revision 1.24 2002/12/27 18:05:27 peter