Changeset 447 for trunk/Packages/Common/UCommon.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

• trunk/Packages/Common/UCommon.pas (modified) (5 diffs)

trunk/Packages/Common/UCommon.pas

@@ -42 +42 @@
   clLightRed = TColor($8080FF);
 
-function AddLeadingZeroes(const aNumber, Length : integer) : string;
+function AddLeadingZeroes(const aNumber, Length : Integer) : string;
 function BinToInt(BinStr: string): Int64;
 function BinToHexString(Source: AnsiString): string;
@@ -96 +96 @@
 function BinToInt(BinStr : string) : Int64;
 var
-  i : byte;
+  I : Byte;
   RetVar : Int64;
 begin
   BinStr := UpperCase(BinStr);
-  if BinStr[length(BinStr)] = 'B' then Delete(BinStr,length(BinStr),1);
+  if BinStr[Length(BinStr)] = 'B' then Delete(BinStr,Length(BinStr),1);
   RetVar := 0;
-  for i := 1 to length(BinStr) do begin
-    if not (BinStr[i] in ['0','1']) then begin
+  for I := 1 to Length(BinStr) do begin
+    if not (BinStr[I] in ['0','1']) then begin
       RetVar := 0;
       Break;
     end;
-    RetVar := (RetVar shl 1) + (byte(BinStr[i]) and 1) ;
+    RetVar := (RetVar shl 1) + (Byte(BinStr[I]) and 1) ;
   end;
 
@@ -435 +435 @@
 end;
 
-function AddLeadingZeroes(const aNumber, Length : integer) : string;
+function AddLeadingZeroes(const aNumber, Length : Integer) : string;
 begin
   Result := SysUtils.Format('%.*d', [Length, aNumber]) ;
@@ -614 +614 @@
   begin
     for J := ReadFrom to Len do
-      if (S[j] = C) then
+      if (S[J] = C) then
       begin
         Result := J;
@@ -631 +631 @@
     Inc(I);
     APos := ReadUntil(I, '<');
-    Result := Result + Copy(S, I, APos - i);
+    Result := Result + Copy(S, I, APos - I);
     I := ReadUntil(APos + 1, '>');
   end;