diff options
Diffstat (limited to 'plugins/Utils.pas/dbsettings.pas')
-rw-r--r-- | plugins/Utils.pas/dbsettings.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/plugins/Utils.pas/dbsettings.pas b/plugins/Utils.pas/dbsettings.pas index 8106fd7e66..df2b28aa22 100644 --- a/plugins/Utils.pas/dbsettings.pas +++ b/plugins/Utils.pas/dbsettings.pas @@ -32,7 +32,7 @@ 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 DBFreeVariant(dbv:PDBVARIANT):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;
@@ -87,7 +87,7 @@ begin else
result:=StrLen(dbv.szVal.a);
- DBFreeVariant(@dbv);
+ db_free(@dbv);
end;
function DBReadString(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar;
@@ -106,7 +106,7 @@ begin else
StrDup(result,default);
- DBFreeVariant(@dbv);
+ db_free(@dbv);
end;
function DBReadUTF8(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar;default:PAnsiChar=nil):PAnsiChar;
@@ -130,7 +130,7 @@ begin else
StrDupW(result,default);
- DBFreeVariant(@dbv);
+ db_free(@dbv);
end;
function DBReadStruct(hContact:TMCONTACT;szModule:PAnsiChar;szSetting:PAnsiChar;
@@ -147,7 +147,7 @@ begin if ptr=nil then
mGetMem(ptr,size);
move(dbv.pbVal^,ptr^,size);
- DBFreeVariant(@dbv);
+ db_free(@dbv);
result:=uint_ptr(ptr)
end
else
@@ -328,7 +328,7 @@ begin if DBReadSetting(hContact,szModule,szSetting,@ldbv)=0 then
begin
result:=ldbv._type;
- DBFreeVariant(@ldbv);
+ db_free(@ldbv);
end
else
result:=DBVT_DELETED;
|