[JVCL-Checkins] SF.net SVN: jvcl: [11455] trunk/jvcl/run/JvPropertyStore.pas

[<jfu...@us...>]

Revision: 11455
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11455&view=rev
Author:   jfudickar
Date:     2007-08-13 16:47:45 -0700 (Mon, 13 Aug 2007)

Log Message:
-----------
Changed CreateObject to abstract

Modified Paths:
--------------
    trunk/jvcl/run/JvPropertyStore.pas

Modified: trunk/jvcl/run/JvPropertyStore.pas
===================================================================
--- trunk/jvcl/run/JvPropertyStore.pas	2007-08-13 21:43:34 UTC (rev 11454)
+++ trunk/jvcl/run/JvPropertyStore.pas	2007-08-13 23:47:45 UTC (rev 11455)
@@ -135,7 +135,7 @@
     procedure DeleteSLOItems(Sender: TJvCustomAppStorage; const Path: string;
       const List: TObject; const First, Last: Integer; const ItemName: string);
     function CreateItemList: TStringList; virtual;
-    function CreateObject: TObject; virtual;
+    function CreateObject: TObject; virtual; abstract;
     function GetSorted: Boolean;
     procedure SetSorted(Value: Boolean);
     function GetDuplicates: TDuplicates;
@@ -767,11 +767,6 @@
   Result := TStringList.Create;
 end;
 
-function TJvCustomPropertyListStore.CreateObject: TObject;
-begin
-  Result := nil;
-end;
-
 function TJvCustomPropertyListStore.GetString(Index: Integer): string;
 begin
   if Assigned(Items) then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.