From d88e3f81961fee3a8c208255ae7077b91b4c1bae Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 30 Jan 2005 13:49:26 +0000 Subject: [PATCH] fixed abstract constructor for fpc 1.0.10 git-svn-id: trunk@6718 - --- ideintf/configstorage.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/ideintf/configstorage.pas b/ideintf/configstorage.pas index 409cfb5561..808b583237 100644 --- a/ideintf/configstorage.pas +++ b/ideintf/configstorage.pas @@ -44,7 +44,7 @@ type procedure DeleteFullPath(const APath: string); virtual; abstract; procedure DeleteFullPathValue(const APath: string); virtual; abstract; public - constructor Create(const Filename: string; LoadFromDisk: Boolean); virtual; abstract; + constructor Create(const Filename: string; LoadFromDisk: Boolean); virtual; destructor Destroy; override; function GetValue(const APath, ADefault: String): String; function GetValue(const APath: String; ADefault: Integer): Integer; @@ -73,6 +73,12 @@ implementation { TConfigStorage } +constructor TConfigStorage.Create(const Filename: string; LoadFromDisk: Boolean + ); +begin + +end; + destructor TConfigStorage.Destroy; begin FPathStack.Free;