XProfan

{$FBSYNTAX ON}

declarar a%[2]

fbPROC fbArrayTest1(ByVal p As Byte Pointer) As Integer Export
  poke integer,p+0,100 'hier p siempre en 4 erhöhen, como p como Byte Pointer definiert es y FreeBasic por lo tanto beim Pointer siempre una Byte weiterzählt
  poke integer,p+4,101 'el entspricht el intuitiven Vorgehen, si uno Integers en una Speicherbereich schreibt
  poke integer,p+8,102
  volver 0
ENDPROC

fbPROC fbArrayTest2(ByVal p As Integer Pointer) As Integer Export
  poke integer,p+0,103 'hier p siempre sólo en 1 erhöhen, como p como Integer Pointer definiert es y FreeBasic weiß, como viele Bytes en cada Element stecken (nämlich 4 pro Integer)
  poke integer,p+1,104 'el es *no* necesariamente intuitiv; Yo sería algo como vermeiden y más bien Byte Pointer para Arrays benutzen
  poke integer,p+2,105
  volver 0
ENDPROC

cls
fbArrayTest1(@addr(a%[0]))
imprimir a%[0]
imprimir a%[1]
imprimir a%[2]
imprimir
fbArrayTest2(@addr(a%[0]))
imprimir a%[0]
imprimir a%[1]
imprimir a%[2]
waitinput
end

{$FBSYNTAX on}

declarar b1#,b2#,b3#,uebergabe#

fbProc fb3Cuerdas(ByVal uebergabe As Any Pointer) As Integer Export
  dim As ZString Pointer s1,s2,s3
  s1=peek(ZString Pointer,uebergabe)
  s2=peek(ZString Pointer,uebergabe+4)
  s3=peek(ZString Pointer,uebergabe+8)
  screenres(400,300)
  imprimir *s1
  imprimir *s2
  imprimir *s3
  volver 0
ENDPROC

cls
dim b1#,10000
dim b2#,10000
dim b3#,10000
cadena b1#,0="String 1"
cadena b2#,0="String 2"
cadena b3#,0="String 3"
dim uebergabe#,12
long uebergabe#,0=b1#
long uebergabe#,4=b2#
long uebergabe#,8=b3#
fb3Cuerdas(uebergabe#)
waitinput
disponer uebergabe#,b1#,b2#,b3#
end

{$FBSYNTAX on}

declarar a%[10],i%

fbProc fbArrayTest(ByVal p As Any Pointer) As Integer Export
  dim i As Byte
  dim a(10) As Integer Pointer
  for i=0 to 10
    a(i)=p+(i*4) 'Adresse des Elements conjunto
    *a(i)=i 'el Element una Valor zuweisen
  next i
  volver 0
ENDPROC

cls
fbArrayTest(@addr(a%[0]))
for i%,0,10
  imprimir a%[i%]
endfor
waitinput
end

Declarar Name$
Título de la ventana "BILD-BETRACHTER"
CLS
ShowMax
Name$ = @LoadFile$("Bilddateien","*.BMP")

Mientras que Name$ <> ""

    Cls
    LoadBmp Name$,0,0; 0
    Título de la ventana "BILD-BETRACHTER - [" + Name$ + "]"
    WaitMouse
    Name$ = @LoadFile$("Bilddateien","*.BMP")

EndWhile

End