PureBasic Forums - English

Code: Select all

Declare var1.i
Declare var2.i

Declare result.i

result = ( (var1).f / (var2).f ).i

; --------------------------------------

Declare str1.s{12} = "Hallo, Welt!"
Declare char.c

char = (str1).c + SizeOf(Character) * 7

Debug (char).s{1}

Code: Select all

Procedure.f iTof(a.i)
  ProcedureReturn a
EndProcedure

var1.i 
var2.i 

result.i=(iTof(var1)/iTof(var2))

; --------------------

Procedure.c sToc(a$)
  ProcedureReturn PeekC(@a$)
EndProcedure
Procedure$ cTos(a.c,l.l=0)
  If l:ProcedureReturn PeekS(@a,l)
  Else:ProcedureReturn PeekS(@a)
  EndIf
EndProcedure

str1.s{12}="Hallo, Welt!" 
char.c=sToc(str1)+SizeOf(Character)*7
Debug cTos(char,1)