瀏覽代碼

fcl-base: typo

mattias 3 年之前
父節點
當前提交
d36d9c7dee
共有 1 個文件被更改,包括 2 次插入4 次删除
  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);
 begin
   inherited Create(AOwner);
-  FSource:=TstringList.Create;
+  FSource:=TStringList.Create;
   FLicenseText:=TstringList.Create;
-  FSwitches:=TstringList.Create;
+  FSwitches:=TStringList.Create;
   FSwitches.Add('MODE ObjFPC');
   FSwitches.Add('H+');
   SetLength(FSections,0);
@@ -408,5 +408,3 @@ end;
 
 end.
 
-end.
-