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