v 4.1.1 Delphi 2009 Date parameter as String

[Anatoliy]

I use parameter ForceWideStringFields in TOracleSession
I get error, when I use Date parameter as String in TOracleDataSet

In OracleTypes TVariableData.SetValue
in block add or (VarType(AValue) and VarTypeMask = VarUString)
to if (VarType(AValue) and VarTypeMask = VarString) then

otDate:
begin
if (VarType(AValue) and VarTypeMask = VarString) then
D := StrToDateTime(AValue)
else
D := AValue;
if (D = 0) and ((ASession = nil) or (TOracleSession(ASession).Preferences.ZeroDateIsNull)) then
indp[Index] := -1
else begin
DelphiToOracleDate(D, lbuf^);
indp[Index] := 0;
end;

 

[Marco Kalter]

We'll fix it.