paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +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 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 @@ begin
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;