tests/tbs/tb0520.pp


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

uses
  variants;
var
  w : widestring;
  v : variant;
  a : ansistring;
begin
  a:='';
  w:='';
  v:='asdf';
  pos(a,v);
  pos(w,v);
  pos(v,v);
  pos(v,a);
  pos(v,w);
  pos(v,v);
end.