PC Toledo

Código: Selecionar todos

#include "hbclass.ch"

CLASS Person
    DATA Name INIT ""

    METHOD New() CONSTRUCTOR

    ACCESS Eyes INLINE ::pvtEyes
    ASSIGN Eyes( x ) INLINE IIF( ValType( x ) == 'C' .AND. x IN "Blue,Brown,Green", ::pvtEyes := x, Alert( "Invalid value" ) )

    // Sample of IN-LINE Method definition
    INLINE METHOD Describe()
       LOCAL cDescription

       IF Empty( ::Name )
          cDescription := "I have no name yet."
       ELSE
          cDescription := "My name is: " + ::Name + ";"
       ENDIF

       IF ! Empty( ::Eyes )
          cDescription += "my eyes' color is: " + ::Eyes
       ENDIF
    ENDMETHOD

    PRIVATE:
       DATA pvtEyes
 ENDCLASS

 // Sample of normal Method definition.
 METHOD New( cName ) CLASS Person

   ::Name := cName

 RETURN Self

Código: Selecionar todos

#include "dll.ch"

   LOCAL hDll, nRetVal

   If File("person.dll")
      hDll:=DllLoad("person.dll")
   Else
      MsgStop("Falha carregando person.dll")
      return .f.
   EndIf

   nRetVal := DllCall(hDll,DLL_OSAPI,"Describe")

   RETURN