Fix issue #838 (superflous "0x" prefix on empty blobs)

This commit is contained in:
Ansgar Becker
2009-04-06 20:06:34 +00:00
parent 610d0a7432
commit 2f604311bf

View File

@ -1110,7 +1110,10 @@ begin
ftBoolean:
value := esc( Bool2Str( Query.Fields[k].AsBoolean ) );
ftBlob:
value := '0x' + BinToWideHex(Query.Fields[k].AsString);
if Query.Fields[k].AsString <> '' then
value := '0x' + BinToWideHex(Query.Fields[k].AsString)
else
value := esc('');
else
value := esc( Query.Fields[k].AsWideString, False, target_version );
end;