XProfan

{$FBSYNTAX ON}

declare a%[2]

fbPROC fbArrayTest1(ByVal p As Byte Pointer) As Integer Export
  poke integer,p+0,100 'ici p toujours um 4 erhöhen, là p comme Byte Pointer défini ist et FreeBasic daher beim Pointer toujours un Byte weiterzählt
  poke integer,p+4,101 'cela entspricht dem intuitiven Vorgehen, si on Integers dans une Speicherbereich écrit
  poke integer,p+8,102
  return 0
ENDPROC

fbPROC fbArrayTest2(ByVal p As Integer Pointer) As Integer Export
  poke integer,p+0,103 'ici p toujours seulement um 1 erhöhen, là p comme Integer Pointer défini ist et FreeBasic sais, comment viele Bytes dans chaque Element stecken (nämlich 4 pro Integer)
  poke integer,p+1,104 'c'est *pas* absolument intuitiv; je serait quelque chose comme vermeiden et lieber Byte Pointer pour Arrays benutzen
  poke integer,p+2,105
  return 0
ENDPROC

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

{$FBSYNTAX on}

declare b1#,b2#,b3#,uebergabe#

fbProc fb3Cordes(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)
  imprimer *s1
  imprimer *s2
  imprimer *s3
  return 0
ENDPROC

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

{$FBSYNTAX on}

declare 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 mettons
    *a(i)=i 'dem Element une Wert zuweisen
  next i
  return 0
ENDPROC

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

Déclarer nom$
Titre de la fenêtre "BILD-BETRACHTER"
CLS
ShowMax
Name$ = @LoadFile$("Bilddateien","*.BMP")

Tandis que nom$ <> »

    Cls
    LoadBmp nom$,0,0; 0
    Titre de la fenêtre "BILD-BETRACHTER - [" + nom$ + "]"
    WaitMouse
    nom$ = @LoadFile$("Bilddateien","*.BMP")

Endwhile

Fin