fpcsrc/tests/test/testv1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %VERSION=1.1 }
program testv1;

uses varutils;

Var
  Varia : TVardata;

begin
  Writeln(SizeOf(Varia));
  Writeln('Initializing variant');
  VariantInit(Varia);
  DumpVariant(Varia);
end.