converting lfm to bin stream: added END check for Delphi bug: it writes empty values

git-svn-id: trunk@7309 -

ide/main.pp

@@ -2773,6 +2773,7 @@ begin
 
   end;
 end;
+
 {$IFDEF TRANSLATESTRING}
 procedure TMainIDE.mnuProjectCreatePoFilesClicked(Sender: TObject);
 var
@@ -11808,6 +11809,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.882  2005/07/01 11:19:24  mattias
+  converting lfm to bin stream: added END check for Delphi bug: it writes empty values
+
   Revision 1.881  2005/06/30 18:15:54  mattias
   implemented adding a new file from registered file types to package
 

lcl/lresources.pp

@@ -1656,6 +1656,12 @@ var
   procedure ProcessProperty; forward;
 
   procedure ProcessValue;
+  
+    procedure RaiseValueExpected;
+    begin
+      parser.Error('Value expected, but '+parser.TokenString+' found');
+    end;
+  
   var
     flt: Extended;
     {$IFDEF HASWIDESTRING}
@@ -1667,6 +1673,9 @@ var
     BinDataSize: LongInt;
     i: Integer;
   begin
+    if parser.TokenSymbolIs('END') then exit;
+    if parser.TokenSymbolIs('OBJECT') then
+      RaiseValueExpected;
     case parser.Token of
       toInteger:
         begin