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

* fcl-db: TParam.SetAs***: set variant datatype before value assignment. Mantis #24728. Patch by Andrew Brunner.

Browse Source 
git-svn-id: trunk@25233 -
This commit is contained in:
reiniero 2013-08-11 10:14:04 +00:00
parent a5517cd3d4
commit 83e843fe2a
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/fcl-db/src/base/dsparams.inc
View File

@ -418,7 +418,7 @@ begin
end
else
NewQuery:=SQL;
Result := NewQuery;
end;
@ -607,84 +607,84 @@ end;
Procedure TParam.SetAsBlob(const AValue: TBlobData);
begin
Value:=AValue;
FDataType:=ftBlob;
Value:=AValue;
end;
Procedure TParam.SetAsBoolean(AValue: Boolean);
begin
Value:=AValue;
FDataType:=ftBoolean;
Value:=AValue;
end;
Procedure TParam.SetAsCurrency(const AValue: Currency);
begin
Value:=Avalue;
FDataType:=ftCurrency;
Value:=Avalue;
end;
Procedure TParam.SetAsDate(const AValue: TDateTime);
begin
Value:=Avalue;
FDataType:=ftDate;
Value:=Avalue;
end;
Procedure TParam.SetAsDateTime(const AValue: TDateTime);
begin
Value:=AValue;
FDataType:=ftDateTime;
Value:=AValue;
end;
Procedure TParam.SetAsFloat(const AValue: Double);
begin
Value:=AValue;
FDataType:=ftFloat;
Value:=AValue;
end;
Procedure TParam.SetAsInteger(AValue: Longint);
begin
Value:=AValue;
FDataType:=ftInteger;
Value:=AValue;
end;
Procedure TParam.SetAsLargeInt(AValue: LargeInt);
begin
Value:=AValue;
FDataType:=ftLargeint;
Value:=AValue;
end;
Procedure TParam.SetAsMemo(const AValue: string);
begin
Value:=AValue;
FDataType:=ftMemo;
Value:=AValue;
end;
Procedure TParam.SetAsSmallInt(AValue: LongInt);
begin
Value:=AValue;
FDataType:=ftSmallInt;
Value:=AValue;
end;
Procedure TParam.SetAsString(const AValue: string);
begin
Value:=AValue;
if FDataType <> ftFixedChar then
FDataType := ftString;
Value:=AValue;
end;
procedure TParam.SetAsWideString(const aValue: WideString);
begin
Value := aValue;
if FDataType <> ftFixedWideChar then
FDataType := ftWideString;
Value := aValue;
end;
Procedure TParam.SetAsTime(const AValue: TDateTime);
begin
Value:=AValue;
FDataType:=ftTime;
Value:=AValue;
end;
Procedure TParam.SetAsVariant(const AValue: Variant);
@ -720,14 +720,14 @@ end;
Procedure TParam.SetAsWord(AValue: LongInt);
begin
Value:=AValue;
FDataType:=ftWord;
Value:=AValue;
end;
procedure TParam.SetAsFMTBCD(const AValue: TBCD);
begin
FValue:=VarFmtBCDCreate(AValue);
FDataType:=ftFMTBcd;
FValue:=VarFmtBCDCreate(AValue);
end;
Procedure TParam.SetDataType(AValue: TFieldType);
@ -1095,7 +1095,7 @@ Var
I : Integer;
P : TParam;
F : TField;
begin
If (ADataSet<>Nil) then
For I:=0 to Count-1 do