fpcsrc/tests/webtbs/tw4700.pp


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

var
  a: Boolean;
  b,c,d : Variant;
  e : Integer;
begin
  b := 'abc';
  c := null;
  a := b = c;
  a := b <> c;
  d := e - c;
  d := e + c;
end.