|
@@ -1434,7 +1434,7 @@ Begin
|
|
|
Q := Length(Result);
|
|
Q := Length(Result);
|
|
|
while (Q > 0) and (Result[Q] = '0') do
|
|
while (Q > 0) and (Result[Q] = '0') do
|
|
|
Dec(Q);
|
|
Dec(Q);
|
|
|
- if Result[Q] = DS then
|
|
|
|
|
|
|
+ if Result[Q] = '.' then
|
|
|
Dec(Q); { Remove trailing decimal point }
|
|
Dec(Q); { Remove trailing decimal point }
|
|
|
if (Q = 0) or ((Q=1) and (Result[1] = '-')) then
|
|
if (Q = 0) or ((Q=1) and (Result[1] = '-')) then
|
|
|
Result := '0'
|
|
Result := '0'
|
michael