paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 05:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented TFMTBcdFactory.Clear and TFMTBcdFactory.Copy methods.

Browse Source 
git-svn-id: trunk@9552 -
This commit is contained in:
yury 2007-12-27 23:44:53 +00:00
parent 79a1b1a485
commit 5f8bd39408
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/fmtbcd.pp
View File

@ -831,6 +831,8 @@ IMPLEMENTATION
function GetInstance(const v : TVarData): tObject; OVERRIDE;
PUBLIC
procedure BinaryOp(var Left: TVarData; const Right: TVarData; const Operation: TVarOp); override;
procedure Clear(var V: TVarData); override;
procedure Copy(var Dest: TVarData; const Source: TVarData; const Indirect: Boolean); override;
end;
TFMTBcdVarData = CLASS(TPersistent)
@ -3678,6 +3680,21 @@ procedure TFMTBcdFactory.BinaryOp(var Left: TVarData; const Right: TVarData; con
RaiseInvalidOp;
end;
end;
procedure TFMTBcdFactory.Clear(var V: TVarData);
begin
FreeAndNil(tObject(V.VPointer));
V.VType:=varEmpty;
end;
procedure TFMTBcdFactory.Copy(var Dest: TVarData; const Source: TVarData; const Indirect: Boolean);
begin
if Indirect then
Dest.VPointer:=Source.VPointer
else
Dest.VPointer:=TFMTBcdVarData.Create(TFMTBcdVarData(Source.VPointer).BCD);
Dest.VType:=Vartype;
end;
{$if declared ( myMinIntBCD ) }
(*