fpcsrc/tests/webtbs/tw12151.pp


1
2
3
4
5
6
7
8
9
10

uses
  variants;
var
  Values: OleVariant;
  mTempNames: string;
begin
  Values := VarArrayCreate([0, 0], varVariant);
  //this row will cause runtime error
  Values[0] := VarArrayCreate([0, 1], varByte);
end.