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

- removed TParam.FNull

Browse Source
This commit is contained in:
joost 2005-04-10 18:27:39 +00:00
parent e4d35e6fe9
commit f4499022c2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/db/dsparams.inc
View File

@ -286,7 +286,7 @@ end;
Function TParam.GetIsNull: Boolean;
begin
Result:=FNull or VarIsNull(FValue) or VarIsClear(FValue);
Result:= VarIsNull(FValue) or VarIsClear(FValue);
end;
Function TParam.IsEqual(AValue: TParam): Boolean;
@ -371,7 +371,6 @@ Procedure TParam.SetAsVariant(const AValue: Variant);
begin
FValue:=AValue;
FBound:=not VarIsClear(Value);
FNull:=VarIsClear(Value) or VarIsNull(Value);
if FDataType = ftUnknown then
case VarType(Value) of
varBoolean : FDataType:=ftBoolean;
@ -430,7 +429,6 @@ begin
ParamType:=ptUnknown;
DataType:=ftUnknown;
FValue:=Unassigned;
FNull:=True;
end;
constructor TParam.Create(AParams: TParams; AParamType: TParamType);
@ -524,7 +522,6 @@ end;
Procedure TParam.Clear;
begin
FValue:=UnAssigned;
FNull:=True;
end;
Procedure TParam.GetData(Buffer: Pointer);
@ -700,7 +697,10 @@ end;
{
$Log$
Revision 1.5 2005-03-24 20:54:53 michael
Revision 1.6 2005-04-10 18:27:39 joost
- removed TParam.FNull
Revision 1.5 2005/03/24 20:54:53 michael
+ Fix in params from Luk Vandelaer
Revision 1.4 2005/02/14 17:13:12 peter