mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 14:49:10 +02:00
* Fix bug ID #33714: do not allow string conversions on blob fields
git-svn-id: trunk@39326 -
This commit is contained in:
parent
398ab09c8d
commit
6b775a2090
@ -1023,6 +1023,8 @@ begin
|
||||
end;
|
||||
ftFmtBCD:
|
||||
s := BCDToStr(AParams[i].AsFMTBCD, FSQLFormatSettings);
|
||||
ftBlob, ftGraphic:
|
||||
s := AParams[i].AsBlob;
|
||||
else
|
||||
s := GetAsString(AParams[i]);
|
||||
end; {case}
|
||||
|
Loading…
Reference in New Issue
Block a user