ovaron
User
Junior Boarder
| Posts: 10 |   |
Karma: 0
|
|
CreateOParam bugfix
|
|
Posted: 2005/04/26 16:32 |
|
|
|
|
function TOciParams.CreateOParam(OFldType: TOCIVarDataType; ODataSize: Integer;
const OParamName: string; OParamType: TOCIVarType; OIsPLSQLTable: Boolean;
OIsCaseSensitive: Boolean): TOciParam;
begin
Result := Add as TOciParam;
Result.OParamType := OParamType;
{$IFDEF GMT} // odatatype overwrites odatasize
Result.ODataType := OFldType;
{$ENDIF GMT}
Result.ODataSize := ODataSize;
Result.OName := OParamName;
{$IFNDEF GMT}
Result.ODataType := OFldType;
{$ENDIF GMT}
Result.IsPLSQLTable := OIsPLSQLTable;
Result.IsCaseSensitive := OIsCaseSensitive;
end;
|
|
