paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-base: fixed local names

Browse Source
This commit is contained in:
mattias 2022-08-01 17:16:01 +02:00
parent 8a6ee0055a
commit 18a2269622
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-base/src/pascodegen.pp
View File

@ -69,9 +69,9 @@ Type
Function EscapeKeyWord(Const S : String; ForceAmpersand : Boolean = false) : String; virtual; Function EscapeKeyWord(Const S : String; ForceAmpersand : Boolean = false) : String; virtual;
Function MakePascalString(S: String; AddQuotes: Boolean=False): String; Function MakePascalString(S: String; AddQuotes: Boolean=False): String;
Function PrettyPrint(Const S: string): String; Function PrettyPrint(Const S: string): String;
Procedure AddLn(Const Aline: string); Procedure AddLn(Const aLine: string);
Procedure AddLn(Const Alines : array of string); Procedure AddLn(Const TheLines : array of string);
Procedure AddLn(Const Alines : TStrings); Procedure AddLn(Const TheLines : TStrings);
Procedure AddLn(Const Fmt: string; Args : Array of const); Procedure AddLn(Const Fmt: string; Args : Array of const);
Procedure Comment(Const AComment : String; Curly : Boolean = False); Procedure Comment(Const AComment : String; Curly : Boolean = False);
Procedure Comment(Const AComment : Array of String); Procedure Comment(Const AComment : Array of String);
@ -139,28 +139,28 @@ begin
Result:=KeywordPrefix+Result+KeywordSuffix Result:=KeywordPrefix+Result+KeywordSuffix
end; end;
procedure TPascalCodeGenerator.AddLn(const Aline: string); procedure TPascalCodeGenerator.AddLn(const aLine: string);
begin begin
FSource.Add(FIndent+ALine); FSource.Add(FIndent+aLine);
end; end;
procedure TPascalCodeGenerator.AddLn(const Alines: array of string); procedure TPascalCodeGenerator.AddLn(const TheLines: array of string);
Var Var
S : String; S : String;
begin begin
For s in alines do For s in TheLines do
Addln(S); Addln(S);
end; end;
procedure TPascalCodeGenerator.AddLn(const Alines: TStrings); procedure TPascalCodeGenerator.AddLn(const TheLines: TStrings);
Var Var
S : String; S : String;
begin begin
For s in alines do For s in TheLines do
Addln(S); Addln(S);
end; end;