fpcsrc/tests/webtbs/tw12109.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{$mode delphi}

Procedure test;

Var
  V : Variant;
  SS : String [80];

Begin
   V := 'Hello';
   SS := V;
   if (ss<>'Hello') then
     halt(1);
End;


begin
  test;
end.