blob: 03b96a7bbe77168f6b7b9dfaa7491c3f0abb1fc4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
program test_varbyref;
{$mode objfpc}{$H+}
{$apptype console}
uses
Variants;
var
V: Variant;
P: Integer;
begin
P := 1;
TVarData(V).vtype := varbyref or varinteger;
TVarData(V).vpointer := @P;
WriteLn(string(V));
WriteLn(SmallInt(V));
WriteLn(Longint(V));
WriteLn(ShortInt(V));
WriteLn(Cardinal(V));
WriteLn(Single(V));
WriteLn(Double(V));
WriteLn(TDateTime(V));
WriteLn(Currency(V));
WriteLn(Boolean(V));
WriteLn(Byte(V));
WriteLn(Int64(V));
WriteLn(QWord(V));
WriteLn(WideString(V));
WriteLn(ShortString(V));
WriteLn(V);
TVarData(V).vtype := varEmpty;
TVarData(V).vpointer := nil;
end.
|
