XProfan

' PType$ sollte mal ein wenig genauer beschrieben werden.

/*
  die 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)          !!! hier wird per Array ein "micro"-Zeichen gesetzt !!!
  Q, H[], ---     Hash (assoziatives Array)  !!! hier wird ohne Klammer einfach QUADINT  gesetzt !!!

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

' Das Testprogramm
cls

   Proc test_Wide
      Parameters wide W[]  ' liefert µ (Micro)
      Print PType$(1)
      Return 0
   EndProc

   Proc test_Hash
      Parameters hash W  ' fehlerhafte Angabe (ohne Klammern) wird einfach durchgewunken
      Print PType$(1)
      Return 0
   EndProc

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

test_Wide( W2[] )
test_Hash( W3 )

WaitInput
End