mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-07 09:07:19 +01:00
* shortstring should be prefered when converting string-string
This commit is contained in:
parent
edcc7cc4af
commit
2437273196
21
tests/tbs/tb0429.pp
Normal file
21
tests/tbs/tb0429.pp
Normal 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.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user