Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* TStrings.InsertObject is virtual in Delphi

Michaël Van Canneyt 11 months ago
parent
0533acdc27
commit
5186044e81
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      rtl/objpas/classes/classesh.inc

+ 1 - 1
rtl/objpas/classes/classesh.inc
View File 

@@ -1025,7 +1025,7 @@ type
 
     function IndexOfName(const Name: string): Integer; virtual;
 
     function IndexOfObject(AObject: TObject): Integer; virtual;
 
     procedure Insert(Index: Integer; const S: string); virtual; abstract;
 
-    procedure InsertObject(Index: Integer; const S: string; AObject: TObject);
 
+    procedure InsertObject(Index: Integer; const S: string; AObject: TObject); virtual;
 
     function LastIndexOf(const S: string; aStart : Integer): Integer; virtual;
 
     function LastIndexOf(const S: string): Integer;
 
     procedure LoadFromFile(const FileName: string); overload; virtual;