Przeglądaj źródła

* Newline for dos/unix shell

git-svn-id: trunk@3444 -
daniel 19 lat temu
rodzic
commit
af6b16cf6c
1 zmienionych plików z 2 dodań i 1 usunięć
  1. 2 1
      fv/app.pas

+ 2 - 1
fv/app.pas

@@ -1065,8 +1065,9 @@ BEGIN
 END;
 
 procedure TApplication.WriteShellMsg;
+
 begin
-  PrintStr(Strings^.Get(sTypeExitOnReturn));
+  writeln(Strings^.Get(sTypeExitOnReturn));
 end;