Bladeren bron

+ added an override of the abstract method TRelObjOutput.writeData (not implemented, yet)

git-svn-id: trunk@45216 -
nickysn 5 jaren geleden
bovenliggende
commit
aa6209ab51
1 gewijzigde bestanden met toevoegingen van 11 en 0 verwijderingen
  1. 11 0
      compiler/ogrel.pas

+ 11 - 0
compiler/ogrel.pas

@@ -42,6 +42,8 @@ interface
       { TRelObjOutput }
       { TRelObjOutput }
 
 
       TRelObjOutput = class(tObjOutput)
       TRelObjOutput = class(tObjOutput)
+      protected
+        function writeData(Data:TObjData):boolean;override;
       end;
       end;
 
 
       { TRelAssembler }
       { TRelAssembler }
@@ -60,6 +62,15 @@ implementation
        version
        version
        ;
        ;
 
 
+{*****************************************************************************
+                                TRelObjOutput
+*****************************************************************************}
+
+    function TRelObjOutput.writeData(Data: TObjData): boolean;
+      begin
+        { todo: implement }
+        result:=true;
+      end;
 
 
 {*****************************************************************************
 {*****************************************************************************
                                 TRelAssembler
                                 TRelAssembler