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