XProfan

' PType$ sollte la fois un peu genauer beschrieben volonté.

/*
  qui gelieferten PType$()-Werte

  einfacher Wert,  Array (dynamisch),  Array (dimensioniert)

  %, %[], %[n]    Integer (Int)
  &, &[], &[n]    Longint (Long), Handle (Pointer)
  !, ![], ![n]    Float (Double)
  $, $[], $[n]    String
  Q, Q[], Q[n]    Quadint (Quad)
  S, S[], S[n]    Single
  W, µ[], µ[n]    Widestring (Wide)          !!! ici wird pour Array un "micro"-marque gesetzt !!!
  Q, H[], ---     Hash (assoziatives Array)  !!! ici wird sans Klammer simple QUADINT  gesetzt !!!

  b   Memory (Mem) (Bereich)
  s   Struktur
  o   objet
*/

' cela Testprogramm
cls

   Proc test_Wide
      Paramètres wide W[]  ' liefert µ (Micro)
      Imprimer PType$(1)
      Retour 0
   ENDPROC

   Proc test_Hash
      Paramètres hash W  ' fehlerhafte Angabe (sans Klammern) wird simple durchgewunken
      Imprimer PType$(1)
      Retour 0
   ENDPROC

Déclarer wide W2[7,7,7]
Déclarer hash W3

test_Wide( W2[] )
test_Hash( W3 )

WaitInput
Fin