4
uses variants,varutils;
13
Writeln('Real assignment');
16
DumpVariant(TVarData(V));
26
Writeln('Double assignment');
29
DumpVariant(TVarData(V));
32
Procedure TestExtended;
39
Writeln('Extended assignment');
42
DumpVariant(TVarData(V));
52
Writeln('Single assignment');
55
DumpVariant(TVarData(V));