more useless helpers wiped out of pascal code

git-svn-id: http://svn.miranda-ng.org/main/trunk@17293 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 2 insertions, 19 deletions

diff --git a/plugins/Utils.pas/dbsettings.pas b/plugins/Utils.pas/dbsettings.pas
index df2b28aa22..c60220e3a2 100644
--- a/plugins/Utils.pas/dbsettings.pas
+++ b/plugins/Utils.pas/dbsettings.pas
@@ -32,13 +32,8 @@ function DBWriteString (hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiCha
 function DBWriteUTF8   (hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar;val:PAnsiChar):int_ptr;

 function DBWriteUnicode(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar;val:PWideChar):int_ptr;

 

-//function db_free(dbv:PDBVARIANT):int_ptr;

-function DBDeleteSetting(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar):int_ptr;

-

 function DBDeleteGroup(hContact:TMCONTACT;szModule:PAnsiChar;prefix:PAnsiChar=nil):int_ptr;

 

-function DBDeleteModule(hContact:TMCONTACT;szModule:PAnsiChar):integer;

-

 function DBGetSettingType(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar):integer;

 

 implementation

@@ -204,12 +199,6 @@ begin
   result:=db_set_ws(hContact, szModule, szSetting, val);

 end;

 

-function DBDeleteSetting(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar):int_ptr;

-  {$IFDEF AllowInline}inline;{$ENDIF}

-begin

-  result:=db_unset(hContact, szModule, szSetting);

-end;

-

 type

   ppchar = ^PAnsiChar;

 

@@ -238,7 +227,7 @@ var
 begin

   if (prefix=nil) or (prefix^=#0) then

   begin

-    DBDeleteModule(hContact,szModule);

+    DbModule_Delete(hContact,szModule);

     result:=0;

     exit;

   end;

@@ -307,7 +296,7 @@ begin
 

     if res then

     begin

-      DBDeleteSetting(hContact,szModule,ptr);

+      db_unset(hContact,szModule,ptr);

     end;

     while ptr^<>#0 do inc(ptr);

     inc(ptr);

@@ -315,12 +304,6 @@ begin
   FreeMem(p);

 end;

 

-function DBDeleteModule(hContact:TMCONTACT;szModule:PAnsiChar):integer;

-begin

-  result:=0;

-  CallService(MS_DB_MODULE_DELETE,hContact,lParam(szModule));

-end;

-

 function DBGetSettingType(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar):integer;

 var

   ldbv:TDBVARIANT;