fixed 2nd bug at48369

2006-12-10 22:25:09 +00:00
parent 0c345ceebc
commit 34f127b9aa
4 changed files with 19 additions and 18 deletions
--- a/editor/studio/UnitfrmMain.pas
+++ b/editor/studio/UnitfrmMain.pas
@ -1706,6 +1706,7 @@ procedure TfrmMain.mnuHudmessageClick(Sender: TObject);
  function Dot(eIn: string): string;
  begin
    Result := StringReplace(eIn, ',', '.', [rfReplaceAll]);
+    Result := StringReplace(eIn, '.00', '.0', [rfReplaceAll]);
  end;

 var eStr: string;