Changeset 447 for trunk/Packages/CevoComponents/Directories.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/CevoComponents/Directories.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/Directories.pas

@@ -33 +33 @@
 
   if Lang = '' then begin
-    for i := 1 to Paramcount - 1 do
-      if (ParamStrUTF8(i) = '--LANG') or (ParamStrUTF8(i) = '-l') or
-        (ParamStrUTF8(i) = '--lang') then
-          Lang := ParamStrUTF8(i + 1);
+    for I := 1 to Paramcount - 1 do
+      if (ParamStrUTF8(I) = '--LANG') or (ParamStrUTF8(I) = '-l') or
+        (ParamStrUTF8(I) = '--lang') then
+          Lang := ParamStrUTF8(I + 1);
   end;
   if Lang = '' then begin
@@ -73 +73 @@
         (Dst.Time < Src.Time) then
         CopyFile(SourceDir + DirectorySeparator + Src.Name,
-          DestinationDir + DirectorySeparator + Src.Name, false);
+          DestinationDir + DirectorySeparator + Src.Name, False);
       FindClose(Dst);
     until FindNext(Src) <> 0;