Browse Source

Remove readln and add mode delphi

git-svn-id: trunk@24807 -
pierre 12 years ago
parent
commit
55252e82f2
1 changed files with 6 additions and 1 deletions
  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;
 program tstrtest;
 
 
 {$APPTYPE CONSOLE}
 {$APPTYPE CONSOLE}
@@ -69,5 +74,5 @@ begin
   TestOpenArray([], []);
   TestOpenArray([], []);
 
 
   Writeln('ok');
   Writeln('ok');
-  Readln;
+  // Readln;
 end.
 end.