blob: e5bc223de8057c7c345ef740f439ffa719eb9eb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
procedure p(const S : RawByteString); overload;
begin
writeln(s,'AnsiString prefers RawByteString');
end;
procedure p(const S : UTF8String); overload;
begin
writeln(s,'AnsiString prefers UTF8String');
{ This is not expected, so generate error }
writeln('Unexpected, changed behavior!');
halt(1);
end;
var
s1 : Ansistring;
begin
s1:='Test: ';
p(s1);
end.
|
