You can simplify the use-case a lot: simply trying to assign any value
to a Variant after it's been assigned an array throws an exception.
It seems one is not allowed to reassign a Variant which was already
initialized to a VarArray - which IMHO is a good thing ;-) Variable
reuse should have a capital punishment =P
BTW, I couldn't even create a varWord array (TBH I never did this in
Delphi anyway), FPC 2.0.2 throws a not-much-useful "VarArrayCreate
exception".
After assigning a varByte array, assigning '0' or '0.0' throws "no
interface supported" and assigning 'Null' or calling 'VarClear' throws
"varpointer is locked".
It doesn't seem to be any reports about these bugs in the tracker...
-Flávio
On 4/20/06, Ryszard Kadow <[EMAIL PROTECTED]> wrote:
>
> helllo!
>
>
> Variable V is variant type,
> in first step V must be array type (V := VarArrayCreate)
> in second step type varBYte.
>
> In delphi and lazarus everything is ok.
>
> in fpc 2.0.2 (linux) program show error EVariantInvalidOpError.
>
> See example below.
>
> where is error?
>
>
> =================
>
>
> example:
>
>
>
>
> var v : variant;
> v2 : variant;
> p_wart : variant;
> Type Tarr = array[0..2] of word;
> var p : ^Tarr;
> begin
> V := VarArrayCreate( [0,2], varword);
> p := VarArrayLock(V);
> try
> writeln('0');
> p^[0] := word(11);
> writeln('1');
> P^[1] := word(22);
> writeln('2');
> p^[2] := word(33);
> writeln('3');
> finally
> p_wart := V;
> VarArrayUnlock(V);
> VarClear(V);
> end;
>
> writeln('p[1]=', p_wart[1]);
> try
> if VarIsArray(V) then writeln('V is array');
> V := Unassigned;
>
> V2 := Byte(0);
> writeln('4'); // ok !
> V := V2; // <-- An unhandled exception occurred at $080645C6 :
> writeln('5'); // EVariantInvalidOpError : Invalid variant operation
>
> V := Byte(2);
> writeln('6');
> p_wart := V;
> writeln('7');
> except
> on E: Exception do Writeln(E.Message, ', nr=',E.HelpContext);
> end;
>
> readln;
>
>
>
> _______________________________________________
> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
>
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
