From 243727319673d516ee1a392644af3a3847eb6dc7 Mon Sep 17 00:00:00 2001 From: peter Date: Fri, 6 Dec 2002 15:21:16 +0000 Subject: [PATCH] * shortstring should be prefered when converting string-string --- tests/tbs/tb0429.pp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 tests/tbs/tb0429.pp diff --git a/tests/tbs/tb0429.pp b/tests/tbs/tb0429.pp new file mode 100644 index 0000000000..7682728e03 --- /dev/null +++ b/tests/tbs/tb0429.pp @@ -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. +