paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: LRSObjectTextToBinary: do not write widestring, it is not needed and makes trouble by the widestringmanager under windows

Browse Source 
git-svn-id: trunk@31040 -
This commit is contained in:
mattias 2011-06-04 10:20:21 +00:00
parent 3ee93b4389
commit 8f85c6d37a
1 changed files with 1 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/lresources.pp
View File

@ -2681,13 +2681,6 @@ var
Output.Write(s[1], Length(s));
end;
procedure WriteWideString(const s: WideString);
begin
WriteLRSInteger(Output,Length(s));
if Length(s) > 0 then
Output.Write(s[1], Length(s)*2);
end;
procedure WriteInteger(value: LongInt);
begin
if (value >= -128) and (value <= 127) then begin
@ -2792,7 +2785,7 @@ var
WriteLRSExtended(Output,flt);
ParserNextToken;
end;
toString:
toString,toWString:
begin
toStringBuf := parser.TokenString;
//DebugLn(['ProcessValue toStringBuf="',toStringBuf,'" ',dbgstr(toStringBuf)]);
@ -2813,20 +2806,6 @@ var
WriteLongString(toStringBuf);
end;
end;
toWString:
begin
toStringBuf := parser.TokenString;
//DebugLn(['ProcessValue toStringBuf="',toStringBuf,'" ',dbgstr(toStringBuf)]);
while ParserNextToken = '+' do
begin
ParserNextToken; // Get next string fragment
if not (parser.Token in [toString,toWString]) then
parser.CheckToken(toString);
toStringBuf := toStringBuf + parser.TokenString;
end;
Output.WriteByte(Ord(vaWString));
WriteWideString(UTF8Decode(toStringBuf));
end;
toSymbol:
begin
if CompareText(parser.TokenString, 'True') = 0 then