Browse Source

* delphi compatibility fix

peter 25 years ago
parent
commit
83fddfe3db
1 changed files with 6 additions and 3 deletions
  1. 6 3
      fcl/inc/classesh.inc

+ 6 - 3
fcl/inc/classesh.inc

@@ -148,7 +148,7 @@ type
   public
   public
     destructor Destroy; override;
     destructor Destroy; override;
     function Add(Item: Pointer): Integer;
     function Add(Item: Pointer): Integer;
-    procedure Clear;
+    procedure Clear; dynamic;
     procedure Delete(Index: Integer);
     procedure Delete(Index: Integer);
     class procedure Error(const Msg: string; Data: Integer); virtual;
     class procedure Error(const Msg: string; Data: Integer); virtual;
     procedure Exchange(Index1, Index2: Integer);
     procedure Exchange(Index1, Index2: Integer);
@@ -1234,7 +1234,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2000-07-13 11:32:59  michael
+  Revision 1.3  2000-08-15 04:10:38  peter
+    * delphi compatibility fix
+
+  Revision 1.2  2000/07/13 11:32:59  michael
   + removed logs
   + removed logs
- 
+
 }
 }