hedgewars/uMisc.pas
changeset 53 0e27949850e3
parent 47 8daf1ee0b9a3
child 55 e09f7c952a40
--- a/hedgewars/uMisc.pas	Sun Jan 15 23:56:47 2006 +0000
+++ b/hedgewars/uMisc.pas	Thu Jan 19 21:12:20 2006 +0000
@@ -136,14 +136,13 @@
 procedure OutError(Msg: String; const isFatalError: boolean=false);
 begin
 {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
+WriteLnToConsole(Msg);
 if isFatalError then
    begin
-   SendIPC('E' + Msg);
-   WriteLn(Msg);
+   SendIPC('E' + GetLastConsoleLine);
    SDL_Quit;
-//   Readln;
    halt(1)
-   end else WriteLnToConsole(Msg)
+   end
 end;
 
 procedure TryDo(Assert: boolean; Msg: string; isFatal: boolean);
@@ -168,7 +167,7 @@
 
 function FloatToStr(n: real): shortstring;
 begin
-str(n, Result)
+str(n:5:5, Result)
 end;
 
 function arctan(const Y, X: real): real;