Page 1 of 1

TIBCParam.IsObjectDataType

Posted: Wed 25 Jun 2014 09:53
by 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;

Re: TIBCParam.IsObjectDataType

Posted: Thu 26 Jun 2014 10:47
by PavloP
Thank you for the information. Investigation is in progress.