mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
2c7c0d1144
overload selection (where you can't even know whether the string is
a valid widechar constant) (mantis #33875)
git-svn-id: trunk@40009 -
21 lines
253 B
ObjectPascal
21 lines
253 B
ObjectPascal
{$MODE DELPHI}
|
|
|
|
program CharOverload;
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
procedure Foo(const aArg: UnicodeString); overload;
|
|
begin
|
|
WriteLn('WideString: ', aArg);
|
|
end;
|
|
|
|
procedure Foo(c: WideChar); overload;
|
|
begin
|
|
WriteLn('Char: ', c);
|
|
end;
|
|
|
|
begin
|
|
Foo('abc');
|
|
end.
|