small fixes

fcl/inc/compon.inc

@@ -148,9 +148,9 @@ begin
   Ancestor:=TComponent(Filer.Ancestor);
   If Assigned(Ancestor) then Temp:=Ancestor.FDesignInfo;
   Filer.Defineproperty('left',readleft,writeleft,
-                       longrec(FDesignInfo).Lo<>Longrec(temp).Lo);
+                       (longrec(FDesignInfo).Lo<>Longrec(temp).Lo));
   Filer.Defineproperty('top',readtop,writetop,
-                       longrec(FDesignInfo).Hi<>Longrec(temp).Hi);
+                       (longrec(FDesignInfo).Hi<>Longrec(temp).Hi));
                       
 end;
 
@@ -375,7 +375,7 @@ Var acomponent: TComponent;
 begin
   While assigned(FComponents) do 
     begin
-    aComponent:=FComponents.Last;
+    aComponent:=TComponent(FComponents.Last);
     Remove(aComponent);
     Acomponent.Destroy;
     end;
@@ -478,7 +478,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  1998-08-23 21:11:03  michael
+  Revision 1.4  1998-08-24 12:37:44  michael
+  small fixes
+
+  Revision 1.3  1998/08/23 21:11:03  michael
   + Fixed some small errors
 
   Revision 1.2  1998/08/22 10:41:35  michael

fcl/inc/filer.inc

@@ -18,15 +18,25 @@
 Constructor TFiler.Create(Stream: TStream; BufSize: Integer);
 
 begin
+  FStream:=Stream;
+  GetMem(FBuffer,BufSize);
+  FBufSize:=BufSize;
 end;
 
 
 Destructor TFiler.Destroy;
 
 begin
-end;{
+  If Assigned(FBuffer) then 
+   FreeMem (FBuffer,FBufSize);
+end;
+
+{
   $Log$
-  Revision 1.1  1998-05-04 14:30:11  michael
+  Revision 1.2  1998-08-24 12:38:23  michael
+  small fixes
+
+  Revision 1.1  1998/05/04 14:30:11  michael
   * Split file according to Class; implemented dummys for all methods, so unit compiles.
 
 }

fcl/inc/streams.inc

@@ -170,15 +170,15 @@
        try
          { application specific resource ? }
          if ReadByte<>$ff then
-           raise EInvalidImage;
+           raise EInvalidImage.Create;
          if ReadWord<>$000a then
-           raise EInvalidImage;
+           raise EInvalidImage.Create;
          { read name }
          while ReadByte<>0 do
            ;
          { check the access specifier }
          if ReadWord<>$1030 then
-           raise EInvalidImage;
+           raise EInvalidImage.Create;
          { ignore the size }
          ReadDWord;
        except
@@ -608,7 +608,10 @@ end;
 
 {
   $Log$
-  Revision 1.6  1998-06-11 21:15:28  michael
+  Revision 1.7  1998-08-24 12:38:24  michael
+  small fixes
+
+  Revision 1.6  1998/06/11 21:15:28  michael
   + Implemented (Custom)Memory and StringStream
 
   Revision 1.5  1998/06/11 13:46:33  michael

fcl/inc/util.inc

@@ -2,4 +2,10 @@ Function IntToStr (I : Longint) : String;
 
 begin
   Str(I,Result);
+end;
+
+function IsValidIdent(const Ident: string): Boolean;
+
+begin
+  Result:=True;
 end;