From 83fddfe3dbd2de969dc5d871f157ce3e7c88a91f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 15 Aug 2000 04:10:38 +0000
Subject: [PATCH]   * delphi compatibility fix

---
 fcl/inc/classesh.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/fcl/inc/classesh.inc b/fcl/inc/classesh.inc
index 632faa16ac..fb7da3967a 100644
--- a/fcl/inc/classesh.inc
+++ b/fcl/inc/classesh.inc
@@ -148,7 +148,7 @@ type
   public
     destructor Destroy; override;
     function Add(Item: Pointer): Integer;
-    procedure Clear;
+    procedure Clear; dynamic;
     procedure Delete(Index: Integer);
     class procedure Error(const Msg: string; Data: Integer); virtual;
     procedure Exchange(Index1, Index2: Integer);
@@ -1234,7 +1234,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
 
 {
   $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
- 
+
 }