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

lcl: LRSObjectTextToBinary: write convert list of components

Browse Source 
git-svn-id: trunk@37637 -
This commit is contained in:
mattias 2012-06-13 15:30:32 +00:00
parent 65ea827862
commit ef5a5438ab
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/lresources.pp
View File

@ -2913,13 +2913,11 @@ var
begin
if parser.TokenSymbolIs('OBJECT') then
Flags :=0 { IsInherited := False }
else if parser.TokenSymbolIs('INHERITED') then
Flags := 1 { IsInherited := True; }
else begin
if parser.TokenSymbolIs('INHERITED') then
Flags := 1 { IsInherited := True; }
else begin
parser.CheckTokenSymbol('INLINE');
Flags := 4;
end;
parser.CheckTokenSymbol('INLINE');
Flags := 4;
end;
ParserNextToken;
parser.CheckToken(toSymbol);
@ -2969,6 +2967,8 @@ var
Output.WriteByte(0); // Terminate property list
end;
var
Count: Integer;
begin
if Links<>nil then begin
// sort links for LFM positions
@ -2980,8 +2980,14 @@ begin
OldThousandSeparator:=DefaultFormatSettings.ThousandSeparator;
DefaultFormatSettings.ThousandSeparator:=',';
try
Output.Write(FilerSignature[1], length(FilerSignature));
ProcessObject;
Count:=0;
repeat
Output.Write(FilerSignature[1], length(FilerSignature));
ProcessObject;
inc(Count);
until parser.TokenString='';
if Count>1 then
Output.WriteByte(0); // Terminate object list
finally
parser.Free;
DefaultFormatSettings.DecimalSeparator:=OldDecimalSeparator;