blob: c744dee40d3c1c1fa8f5587f451728c1cd4b2a83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
program tcpstr21a;
{$APPTYPE CONSOLE}
{$IFDEF FPC}
{$MODE DELPHIUNICODE}
{$ENDIF}
// Test that ansistring types has the same overload precedence when passing an UnicodeString constant
procedure TestStrConst(const S: AnsiString); overload;
begin
halt(1);
end;
procedure TestStrConst(const S: UTF8String); overload;
begin
halt(1);
end;
begin
TestStrConst('Test');
end.
|
