Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 2nd, 2012  |  syntax: None  |  size: 0.73 KB  |  hits: 13  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.  
  2. Class Master
  3.         Protect Val.l
  4.        
  5.         Public Method.s Proc1() ; Methode Proc1() der Klasse "MyClass"
  6.                 This\Val = 456 ; Variable setzen
  7.         EndMethod
  8.        
  9.         Public Method Proc2() ; Methode Proc2() der Klasse "MyClass"
  10.                 Debug This\Val ; Variable auslesen
  11.         EndMethod
  12.        
  13. EndClass
  14.  
  15. Class Base
  16.         Protect Val.l
  17.                                                                                                                
  18.         Public Method.s Proc1() ; Methode Proc1() der Klasse "MyClass"
  19.                 This\Val = 456 ; Variable setzen
  20.         EndMethod
  21.        
  22.         Public Method Proc2() ; Methode Proc2() der Klasse "MyClass"
  23.                 Debug This\Val ; Variable auslesen
  24.         EndMethod
  25.        
  26. EndClass
  27.  
  28. Define *MyObject.Master = NewObject.Base ; Objekt erstellen
  29. *MyObject\Proc1() ; 1. Methode aufrufen
  30. *MyObject\Proc2() ; 2. Methode aufrufen
  31. *MyObject = FreeObject ; Objekt löschen
create a new version of this paste RAW Paste Data