* shortstring should be prefered when converting string-string

This commit is contained in:
peter 2002-12-06 15:21:16 +00:00
parent edcc7cc4af
commit 2437273196

21
tests/tbs/tb0429.pp Normal file
View File

@ -0,0 +1,21 @@
procedure lowercase(c:char);overload;
begin
writeln('char');
end;
procedure lowercase(c:shortstring);overload;
begin
writeln('short');
end;
procedure lowercase(c:ansistring);overload;
begin
writeln('ansi');
end;
var
w : widestring;
begin
{ this should choosse the shortstring version }
lowercase(w);
end.