Hi Guys,

I'm having some trouble when I'm trying to Initialize a constant record when one of the types is a "VARIANT" one.

For example:

This WORKS:

const
   myRec : array [0..1] of record Num : integer; Str : string; end =
   (
     (Num: 100; Str: 'ABC'),
     (Num: 200; Str: 'DEF')
   );


But this don't

const
   myRec : array [0..1] of record Num : integer; Str : string; Test : Variant end =
   (
     (Num: 100; Str: 'ABC'; Test : VarArrayCreate([0,1], varInteger)),
     (Num: 200; Str: 'DEF')
   );


In fact what I want to do is create an Array inside my Record for generic data type and length, it should be something like this:

const
   myRec : array [0..1] of record Num : integer; Str : string; Test : Variant end =
   (
     (Num: 100; Str: 'ABC'; Test : Array[0..2] of Variant = ('a', 100, 33.33)),
     (Num: 200; Str: 'DEF'; Test : Array[0..1] of Variant = ('b', 200))
   );

Is this possible?

Thanks,

ddVerne.

I don't think records can take complex data types like a Variant.

http://www.delphibasics.co.uk/RTL.asp?Name=Record

Could you use an object for this?  It wouldn't be much more code for the constructor, etc and gives you far more options.

Hi DjangMan,

In fact I could create a class etc. But I would like to try this without using objects, since it will be a constant and everything is already done, my only concern is about to using a data type which could store (pre-determined) array length of some type of data.

Let's forget about 'Variant' and think about Integers:

There is a way to do something like this?

const
   myRec : array [0..1] of record Num : integer; Str : string; Test : SomeData end =
   (
     (Num: 100; Str: 'ABC'; Test : Array[0..2] of Integer = (1, 2, 3)),
     (Num: 200; Str: 'DEF'; Test : Array[0..1] of Integer = (4, 5))
   );

Or for example defining "Test as Pointer" and point to an array which was already initialized?

Like this:

const
   Array1 : Array[0..2] of Integer(0,1,2);
   Array2 : Array[0..1] of Integer(3,4);

   myRec : array [0..1] of record Num : integer; Str : PInteger; Test : SomeData end =
   (
     (Num: 100; Str: 'ABC'; Test : @Array1),
     (Num: 200; Str: 'DEF'; Test : @Array2)
   );


I really appreciate any any help.

Thanks,

ddverne.