Query Function Type in TOracleDataSet

[geraldwinslow]

Can anyone tell me how to get the function type from a TOracleDataSet's TQuery part?

Thanks!
Gerald Winslow

 

[Marco Kalter]

Do you mean the function type as returned by TOracleQuery.FunctionType? If so, you can only derive your own TOracleDataSet descendant and access the InternalQuery property.

------------------
Marco Kalter
Allround Automations

 

[geraldwinslow]

Sir,

So InternalQuery is a "property?" Can I do what you suggest without the DOA source code? I'd like to try this, if possible, but have never derived a new component before. Could you give a brief example?

Thanks!

Originally posted by mkalter:
Do you mean the function type as returned by TOracleQuery.FunctionType? If so, you can only derive your own TOracleDataSet descendant and access the InternalQuery property.

 

[Marco Kalter]

The following function will return the FunctionType of a TOracleDataSet:

type TmpOracleDataSet = class(TOracleDataSet);

function FunctionType(DataSet: TOracleDataSet): Integer;
begin
  Result := TmpOracleDataSet(DataSet).InternalQuery.FunctionType;
end;

------------------
Marco Kalter
Allround Automations

 

[geraldwinslow]

Thanks! Amazing how easy it is! I guess, that's Delphi for you!

Originally posted by mkalter:
The following function will return the FunctionType of a TOracleDataSet:

type TmpOracleDataSet = class(TOracleDataSet);

function FunctionType(DataSet: TOracleDataSet): Integer;
begin
  Result := TmpOracleDataSet(DataSet).InternalQuery.FunctionType;
end;