Der Gambas Club

Code: Alles auswählen

LIBRARY "libc:6"

EXTERN atoi(wert AS Pointer) AS Integer

STATIC PUBLIC SUB Main()

DIM nPtr AS Pointer 

nPtr = Alloc("1027")
' String in Integer
  PRINT atoi(nPtr)

  Realloc(nPtr, 1)

END

Code: Alles auswählen

    IF Key.Code = Key.Return THEN PRINT "Return"
    
    IF Key.Text = Chr$(65) THEN PRINT Chr$(65)

Code: Alles auswählen

Desktop.H
Desktop.W
form.center