소스 검색

+ Added class word to 2 lines

git-svn-id: trunk@4421 -
michael 19 년 전
부모
커밋
62658e26fc
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      fcl/inc/zipper.pp

+ 2 - 2
fcl/inc/zipper.pp

@@ -365,7 +365,7 @@ begin
   Crc32Val:=NOT Crc32Val;
 end;
 
-function TDeflater.ZipID: Word;
+class function TDeflater.ZipID: Word;
 begin
   Result:=8;
 end;
@@ -436,7 +436,7 @@ begin
    ProcessLine('');
 end;
 
-function TShrinker.ZipID: Word;
+class function TShrinker.ZipID: Word;
 begin
   Result:=1;
 end;