Quellcode durchsuchen

* Fix TNoResources abstract methods

git-svn-id: trunk@43330 -
michael vor 6 Jahren
Ursprung
Commit
c35331dc57
1 geänderte Dateien mit 12 neuen und 0 gelöschten Zeilen
  1. 12 0
      packages/pastojs/src/pas2jsresources.pp

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

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