Sfoglia il codice sorgente

Remove readln and add mode delphi

git-svn-id: trunk@24807 -
pierre 12 anni fa
parent
commit
55252e82f2
1 ha cambiato i file con 6 aggiunte e 1 eliminazioni
  1. 6 1
      tests/test/tstring11.pp

+ 6 - 1
tests/test/tstring11.pp

@@ -1,3 +1,8 @@
+
+{ As this is a Delphi compatibility test
+  I suppose delphi mode is OK, PM 2013-06-05 }
+{$mode delphi}
+
 program tstrtest;
 
 {$APPTYPE CONSOLE}
@@ -69,5 +74,5 @@ begin
   TestOpenArray([], []);
 
   Writeln('ok');
-  Readln;
+  // Readln;
 end.