Remove readln and add mode delphi

git-svn-id: trunk@24807 -
This commit is contained in:
pierre 2013-06-05 15:42:46 +00:00
parent 2a09070108
commit 55252e82f2

View File

@ -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.