XProfan

' PType$ debería veces una wenig genauer beschrieben voluntad.

/*
  el gelieferten PType$()-Werte

  einfacher Valor,  Array (dynamisch),  Array (dimensioniert)

  %, %[], %[n]    Integer (Int)
  &, &[], &[n]    Longint (Largo), Handle (Pointer)
  !, ![], ![n]    Float (Double)
  $, $[], $[n]    String
  Q, Q[], Q[n]    Quadint (Quad)
  S, S[], S[n]    Single
  W, µ[], µ[n]    Widestring (Wide)          !!! hier se para Array una "micro"-Signo gesetzt !!!
  Q, H[], ---     Hash (assoziatives Array)  !!! hier se sin Klammer simplemente QUADINT  gesetzt !!!

  b   Memory (Mem) (Zona)
  s   Struktur
  o   Objeto
*/

' Das Testprogramm
cls

   Proc test_Wide
      Parámetros wide W[]  ' liefert µ (Micro)
      Imprimir PType$(1)
      Volver 0
   ENDPROC

   Proc test_Hash
      Parámetros hash W  ' fehlerhafte Angabe (sin Klammern) se simplemente durchgewunken
      Imprimir PType$(1)
      Volver 0
   ENDPROC

Declarar wide W2[7,7,7]
Declarar hash W3

test_Wide( W2[] )
test_Hash( W3 )

WaitInput
End