small bug fix, compressed exe again :x
This commit is contained in:
parent
f03449acbd
commit
75a5dadd4d
Binary file not shown.
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user