fpcsrc/tests/webtbs/tw11371.pp


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

program tw11371;

{$mode delphi}{$H+}

uses
  Variants;

procedure Test1(const s: string);
begin
  // nothing
end;

procedure Test2(const s: UTF8String);
begin
  // nothing
end;

var
  V: Variant;

begin
  V := 'Test';
  Test1(V);
  Test2(V);
end.