小数位数

Units/CalcDecimal.pas

@@ -93,18 +93,18 @@ end;
 function TDecimal.GetDisplayFormat(ADigit: Integer): string;
 begin
   case ADigit of
-    0: Result := '#';
-    1: Result := '#.#';
-    2: Result := '#.##';
-    3: Result := '#.###';
-    4: Result := '#.####';
-    5: Result := '#.#####';
-    6: Result := '#.######';
-    7: Result := '#.#######';
-    8: Result := '#.########';
-    9: Result := '#.#########';
+    0: Result := '0';
+    1: Result := '0.#';
+    2: Result := '0.##';
+    3: Result := '0.###';
+    4: Result := '0.####';
+    5: Result := '0.#####';
+    6: Result := '0.######';
+    7: Result := '0.#######';
+    8: Result := '0.########';
+    9: Result := '0.#########';
   else
-    Result := '#.##########';
+    Result := '0.##########';
   end;
 end;
 

Units/ProjectProperty.pas

@@ -349,18 +349,18 @@ end;
 function TProjProperties.GetDisplayFormat(ADigit: Integer): string;
 begin
   case ADigit of
-    0: Result := '#';
-    1: Result := '#.#';
-    2: Result := '#.##';
-    3: Result := '#.###';
-    4: Result := '#.####';
-    5: Result := '#.#####';
-    6: Result := '#.######';
-    7: Result := '#.#######';
-    8: Result := '#.########';
-    9: Result := '#.#########';
+    0: Result := '0';
+    1: Result := '0.#';
+    2: Result := '0.##';
+    3: Result := '0.###';
+    4: Result := '0.####';
+    5: Result := '0.#####';
+    6: Result := '0.######';
+    7: Result := '0.#######';
+    8: Result := '0.########';
+    9: Result := '0.#########';
   else
-    Result := '#.##########';
+    Result := '0.##########';
   end;
 end;