paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 13:04:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed creating string in lfm starting with ' (bug )

Browse Source 
git-svn-id: trunk@7520 -
This commit is contained in:
vincents 2005-08-17 13:24:49 +00:00
parent e6cbf72943
commit 40a72b9798
1 changed files with 4 additions and 3 deletions

7
lcl/lresources.pp
View File

@ -1166,9 +1166,10 @@ procedure LRSObjectBinaryToText(Input, Output: TStream);
NewInString := False;
NewStr := '#' + IntToStr(Ord(s[i]));
end;
'''':
if InString then NewStr := ''''''
else NewStr := '''''''';
'''': begin
NewInString := True;
NewStr:='''''';
end;
else begin
NewInString := True;
NewStr := s[i];