Browse Source

* Fix TNoResources abstract methods

git-svn-id: trunk@43330 -
michael 5 years ago
parent
commit
c35331dc57
1 changed files with 12 additions and 0 deletions
  1. 12 0
      packages/pastojs/src/pas2jsresources.pp

+ 12 - 0
packages/pastojs/src/pas2jsresources.pp

@@ -59,6 +59,8 @@ Type
   Public
     Procedure HandleResource (aFileName : string; Options : TStrings); override;
     Class Function OutputMode : TResourceOutputMode; override;
+    function GetResourceCount: Integer; override;
+    function GetAsString: String; override;
   end;
 implementation
 
@@ -78,6 +80,16 @@ begin
   result:=romNone;
 end;
 
+function TNoResources.GetResourceCount: Integer;
+begin
+  Result:=0;
+end;
+
+function TNoResources.GetAsString: String;
+begin
+  Result:='';
+end;
+
 {$ENDIF}
 
 { TPas2jsResourceHandler }