paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 18:37:23 +01: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; Function TParam.GetIsNull: Boolean;
begin begin
Result:=FNull or VarIsNull(FValue) or VarIsClear(FValue); Result:= VarIsNull(FValue) or VarIsClear(FValue);
end; end;
Function TParam.IsEqual(AValue: TParam): Boolean; Function TParam.IsEqual(AValue: TParam): Boolean;
@ -371,7 +371,6 @@ Procedure TParam.SetAsVariant(const AValue: Variant);
begin begin
FValue:=AValue; FValue:=AValue;
FBound:=not VarIsClear(Value); FBound:=not VarIsClear(Value);
FNull:=VarIsClear(Value) or VarIsNull(Value);
if FDataType = ftUnknown then if FDataType = ftUnknown then
case VarType(Value) of case VarType(Value) of
varBoolean : FDataType:=ftBoolean; varBoolean : FDataType:=ftBoolean;
@ -430,7 +429,6 @@ begin
ParamType:=ptUnknown; ParamType:=ptUnknown;
DataType:=ftUnknown; DataType:=ftUnknown;
FValue:=Unassigned; FValue:=Unassigned;
FNull:=True;
end; end;
constructor TParam.Create(AParams: TParams; AParamType: TParamType); constructor TParam.Create(AParams: TParams; AParamType: TParamType);
@ -524,7 +522,6 @@ end;
Procedure TParam.Clear; Procedure TParam.Clear;
begin begin
FValue:=UnAssigned; FValue:=UnAssigned;
FNull:=True;
end; end;
Procedure TParam.GetData(Buffer: Pointer); Procedure TParam.GetData(Buffer: Pointer);
@ -700,7 +697,10 @@ end;
{ {
$Log$ $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 + Fix in params from Luk Vandelaer
Revision 1.4 2005/02/14 17:13:12 peter Revision 1.4 2005/02/14 17:13:12 peter