fpc/tests/test/tcpstr2.pp
paul 42832675d8 merge r13482 from cpstrnew branch by florian:
+ first tests for code page aware strings

git-svn-id: trunk@19081 -
2011-09-17 10:40:45 +00:00

13 lines
170 B
ObjectPascal

procedure p(const S : RawByteString); overload;
begin
end;
procedure p(const S : UTF8String); overload;
begin
end;
var
s1 : RawByteString;
begin
p(s1);
end.