small bug fix, compressed exe again :x

This commit is contained in:
Christian Hammacher 2006-12-10 22:37:01 +00:00
parent f03449acbd
commit 75a5dadd4d
2 changed files with 1 additions and 1 deletions

Binary file not shown.

View File

@ -1706,7 +1706,7 @@ procedure TfrmMain.mnuHudmessageClick(Sender: TObject);
function Dot(eIn: string): string; function Dot(eIn: string): string;
begin begin
Result := StringReplace(eIn, ',', '.', [rfReplaceAll]); Result := StringReplace(eIn, ',', '.', [rfReplaceAll]);
Result := StringReplace(eIn, '.00', '.0', [rfReplaceAll]); Result := StringReplace(Result, '.00', '.0', [rfReplaceAll]);
end; end;
var eStr: string; var eStr: string;