Parcourir la source

* shortstring should be prefered when converting string-string

peter il y a 23 ans
Parent
commit
2437273196
1 fichiers modifiés avec 21 ajouts et 0 suppressions
  1. 21 0
      tests/tbs/tb0429.pp

+ 21 - 0
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.
+