paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-18 12:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not pass by variant type detection when setting value

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-15 17:45:45 +02:00
parent 2bea7d21f6
commit 4fb43b145f
1 changed files with 11 additions and 12 deletions

23
packages/fcl-db/db.pas
View File

@ -8954,68 +8954,68 @@ end;
Procedure TParam.SetAsBlob(const AValue: TBlobData);
begin
FDataType:=ftBlob;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsBoolean(AValue: Boolean);
begin
FDataType:=ftBoolean;
Value:=AValue;
FValue:=AValue;
end;
procedure TParam.SetAsBytes(const AValue: TBytes);
begin
// ?
end;
Procedure TParam.SetAsDate(const AValue: TDateTime);
begin
FDataType:=ftDate;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsDateTime(const AValue: TDateTime);
begin
FDataType:=ftDateTime;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsFloat(const AValue: Double);
begin
FDataType:=ftFloat;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsInteger(AValue: Longint);
begin
FDataType:=ftInteger;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsLargeInt(AValue: NativeInt);
begin
FDataType:=ftLargeint;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsMemo(const AValue: string);
begin
FDataType:=ftMemo;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsString(const AValue: string);
begin
if FDataType <> ftFixedChar then
FDataType := ftString;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsTime(const AValue: TDateTime);
begin
FDataType:=ftTime;
Value:=AValue;
FValue:=AValue;
end;
Procedure TParam.SetAsJSValue(const AValue: JSValue);
@ -9037,7 +9037,6 @@ Procedure TParam.SetDataType(AValue: TFieldType);
begin
FDataType:=AValue;
end;
Procedure TParam.SetText(const AValue: string);