paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added some missing methods

Browse Source 
git-svn-id: trunk@3672 -
This commit is contained in:
michael 2006-05-25 11:57:07 +00:00
parent e531c4f125
commit 9ff47fa9a8
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fcl/db/db.pp
View File

@ -1845,6 +1845,9 @@ Function ExtractFieldName(Const Fields: String; var Pos: Integer): String;
Function DateTimeRecToDateTime(DT: TFieldType; Data: TDateTimeRec): TDateTime;
Function DateTimeToDateTimeRec(DT: TFieldType; Data: TDateTime): TDateTimeRec;
procedure DisposeMem(var Buffer; Size: Integer);
function BuffersEqual(Buf1, Buf2: Pointer; Size: Integer): Boolean;
implementation
uses dbconst,typinfo;
@ -2130,6 +2133,21 @@ begin
if i >= 0 then Result := PLookupListRec(FList.Items[I])^.Value;
end;
procedure DisposeMem(var Buffer; Size: Integer);
begin
if Pointer(Buffer) <> nil then
begin
FreeMem(Pointer(Buffer), Size);
Pointer(Buffer) := nil;
end;
end;
function BuffersEqual(Buf1, Buf2: Pointer; Size: Integer): Boolean;
begin
Result:=CompareByte(Buf1,Buf2,Size)=0
end;
{$i dataset.inc}
{$i fields.inc}
{$i datasource.inc}