PureBoard

Code: Alles auswählen

; -----------------------------------------------------------------------------
;<comment>
;  <summary><b><i><br>Was tut diese Procedure Name()</summary>
;  <param>Parameter1: Beschreibung</param>
;  <param>Parameter2: Beschreibung</param>
;  <param>Parameter3: Beschreibung</param>
;  <return>Beschreibung des Rückgabewertes</return>
;  <example>x = Beispielaufruf()</example>
;</comment>
Procedure.i Name() 

  Protected.i Result


  ProcedureReturn Result

EndProcedure

x = Name(
; -----------------------------------------------------------------------------
;<comment>
;  <summary><b><i><br>Was tut diese Procedure Name2()</summary>
;  <param>Parameter1: Beschreibung</param>
;  <param>Parameter2: Beschreibung</param>
;  <param>Parameter3: Beschreibung</param>
;  <example>Beispielaufruf()</example>
;</comment>
Procedure Name2()             ; <-------- hier in Pos 1 Cursor setzen und nach rechts tippen bis nach die 2

  Protected.i Result


EndProcedure

Name2(

Code: Alles auswählen

DeclareModule BitConverter
  ;- --------------------------------------------------------------------------
  ;-   Declaration Public Methods
  ;- --------------------------------------------------------------------------
    
  Declare.s ToString(Array value.a(1), startIndex=0, length=0) 
EndDeclareModule

Module BitConverter
  ;- --------------------------------------------------------------------------
  ;-   Public Methods
  ;- --------------------------------------------------------------------------  
   
  ;<comment>
  ;  <summary>Converts the numeric value of each element of a specified Array of bytes To its equivalent hexadecimal string representation.</summary>
  ;  <param><b>value</b>: An Array of bytes.</param>
  ;  <param><i>Optional</i> <b>startIndex</b>: The starting position within value.</param>
  ;  <param><i>Optional</i> <b>length</b>: The number of array elements in value to convert.</param>
  ;  <return>String of hexadecimal pairs, each value separated by hyphen. For example, "7F-2C-4A-00".</return>
  ;  <example>Str$ = BitConverter::ToString(value())</example>
  ;</comment>
  Procedure.s ToString(Array value.a(1), startIndex=0, length=0) 
  EndProcedure
EndModule

DeclareModule Guid
  
  Declare.s ToString(*Guid.UUID, ToUpper=#False)
 
EndDeclareModule

Module Guid

  ;<comment>
  ;  <summary>Returns a string representation of the value of Guid in registry format.</summary>
  ;  <param><b>*Guid</b>: Pointer to the UUID Structure</param>
  ;  <param><i>Optional </i><b>ToUpper</b>: Flag to set Output Uppercase</param>
  ;  <return>returns string with guid in registry format</return>
  ;  <example>RegGuid.s = Guid::ToString(@Guid)</example>
  ;</comment>
  Procedure.s ToString(*Guid.UUID, ToUpper=#False)
  
  EndProcedure
  
EndModule