fcl-base: fixed local names

loongson · Sep 15, 2022 · 18a2269 · 18a2269
1 parent 8a6ee00
commit 18a2269
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/packages/fcl-base/src/pascodegen.pp b/packages/fcl-base/src/pascodegen.pp
@@ -69,9 +69,9 @@ interface
     Function EscapeKeyWord(Const S : String; ForceAmpersand : Boolean = false) : String; virtual;
     Function MakePascalString(S: String; AddQuotes: Boolean=False): String;
     Function PrettyPrint(Const S: string): String;
-    Procedure AddLn(Const Aline: string);
-    Procedure AddLn(Const Alines : array of string);
-    Procedure AddLn(Const Alines : TStrings);
+    Procedure AddLn(Const aLine: string);
+    Procedure AddLn(Const TheLines : array of string);
+    Procedure AddLn(Const TheLines : TStrings);
     Procedure AddLn(Const Fmt: string; Args : Array of const);
     Procedure Comment(Const AComment : String; Curly : Boolean = False);
     Procedure Comment(Const AComment : Array of String);
@@ -139,28 +139,28 @@ function TPascalCodeGenerator.EscapeKeyWord(const S: String; ForceAmpersand : Bo
       Result:=KeywordPrefix+Result+KeywordSuffix
 end;
 
-procedure TPascalCodeGenerator.AddLn(const Aline: string);
+procedure TPascalCodeGenerator.AddLn(const aLine: string);
 
 begin
-  FSource.Add(FIndent+ALine);
+  FSource.Add(FIndent+aLine);
 end;
 
-procedure TPascalCodeGenerator.AddLn(const Alines: array of string);
+procedure TPascalCodeGenerator.AddLn(const TheLines: array of string);
 
 Var
   S : String;
 
 begin
-  For s in alines do
+  For s in TheLines do
     Addln(S);
 end;
 
-procedure TPascalCodeGenerator.AddLn(const Alines: TStrings);
+procedure TPascalCodeGenerator.AddLn(const TheLines: TStrings);
 Var
   S : String;
 
 begin
-  For s in alines do
+  For s in TheLines do
     Addln(S);
 end;