Exception SetVariant

rbuser

Hi,

Could it be that in ppVar.SetVariant exists an error if FDataType is
dtChar and Value = ''?

(RB 10.07)

procedure TppVariable.SetVariant(Value: Variant);
begin

{if Null or Empty, assignment will raise exception}
if VarType(Value) in [varNull, varEmpty] then Exit;

case FDataType of
dtBoolean: FBoolean := Boolean(Value);
dtChar: FChar := String(Value)[1];

...

Regards,
Christian

--
Erstellt mit Operas revolutionärem E-Mail-Modul: http://www.opera.com/mail/

nicocizik

Hi Petter,

There is now a patch available that addresses this issue. Please send a
short email to support@digital-metaphors.com requesting the patch and we'll
send it to you as soon as possible.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com