TIBCParam.IsObjectDataType

[lrauti]

Is there a reason why ftFmtMemo data type is not listed here?

function TIBCParam.IsObjectDataType(DataType: TFieldType): boolean;
begin
case DataType of
{$IFDEF VER10P}ftWideMemo,{$ENDIF}
ftMemo, ftBlob, ftArray, ftADT:
Result := True;
else
...

It is causing problems here...

procedure TDAParam.SetAsVariant(const Value: variant);
begin
if IsBlobDataType then begin
Assert(ParamObject is TBlob);
...

because ParamObject is nil when DataType is ftFmtMemo.

ftFmtMemo is listed here...

function TDAParam.IsObjectDataType(DataType: TFieldType): boolean;
begin
Result := DataType in [ftMemo{$IFDEF VER10P}, ftWideMemo{$ENDIF}, ftBlob, ftGraphic, ftFmtMemo];
end;

[PavloP]

Thank you for the information. Investigation is in progress.