Changeset 75 for trunk/Packages/Common/PrefixMultiplier.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Packages/Common/PrefixMultiplier.pas (moved) (moved from trunk/Packages/Common/UPrefixMultiplier.pas ) (7 diffs)

trunk/Packages/Common/PrefixMultiplier.pas

@@ -1 @@
-unit UPrefixMultiplier;
+unit PrefixMultiplier;
 
 // Date: 2010-06-01
-
-{$mode delphi}
 
 interface
@@ -21 +19 @@
   { TPrefixMultiplier }
 
-  TPrefixMultiplier = class
+  TPrefixMultiplier = class(TComponent)
   private
-    function TruncateDigits(Value:Double;Digits:Integer=3):Double;
+    function TruncateDigits(Value: Double; Digits: Integer = 3): Double;
   public
     function Add(Value: Double; PrefixMultipliers: TPrefixMultiplierDef;
@@ -33 +31 @@
   (
     (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24),
-          (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
+    (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
     (ShortText: 'a'; FullText: 'atto'; Value: 1e-18),
     (ShortText: 'f'; FullText: 'femto'; Value: 1e-15),
@@ -54 +52 @@
   (
     (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24),
-          (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
+    (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
     (ShortText: 'as'; FullText: 'atto'; Value: 1e-18),
     (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15),
@@ -72 +70 @@
   );
 
+procedure Register;
+
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('Common', [TPrefixMultiplier]);
+end;
 
 { TPrefixMultiplier }
@@ -92 +98 @@
 end;
 
-function TPrefixMultiplier.Add(Value:Double;PrefixMultipliers:TPrefixMultiplierDef
-  ;UnitText:string;Digits:Integer):string;
+function TPrefixMultiplier.Add(Value: Double; PrefixMultipliers: TPrefixMultiplierDef
+  ; UnitText:string; Digits: Integer): string;
 var
   I: Integer;
@@ -118 +124 @@
 
 end.
-