Browse Source

fcl-base: typo

mattias 3 years ago
parent
commit
d36d9c7dee
1 changed files with 2 additions and 4 deletions
  1. 2 4
      packages/fcl-base/src/pascodegen.pp

+ 2 - 4
packages/fcl-base/src/pascodegen.pp

@@ -198,9 +198,9 @@ end;
 constructor TPascalCodeGenerator.Create(AOwner: TComponent);
 constructor TPascalCodeGenerator.Create(AOwner: TComponent);
 begin
 begin
   inherited Create(AOwner);
   inherited Create(AOwner);
-  FSource:=TstringList.Create;
+  FSource:=TStringList.Create;
   FLicenseText:=TstringList.Create;
   FLicenseText:=TstringList.Create;
-  FSwitches:=TstringList.Create;
+  FSwitches:=TStringList.Create;
   FSwitches.Add('MODE ObjFPC');
   FSwitches.Add('MODE ObjFPC');
   FSwitches.Add('H+');
   FSwitches.Add('H+');
   SetLength(FSections,0);
   SetLength(FSections,0);
@@ -408,5 +408,3 @@ end;
 
 
 end.
 end.
 
 
-end.
-