Hi,

ok, der Fehler ist schonmal weg, danke!
Ich dachte immer, mit Byref arbeitet man quasi mit einem Pointer, aber da war ich wohl falsch informiert.
Jetzt meckert er aber wieder:
Code:
$sim
$regfile = "xm32a4def.dat"
$crystal = 32000000
$framesize = 100
$hwstack = 100
$swstack = 100

$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014


Config Osc = Disabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1


Declare Function Searchstring(strar() As Byte , Strsearch As Byte) As Byte



Dim Gpsdata As String * 100
Dim Gps_ovl(100) As Byte At Gpsdata Overlay

Dim Tmp As Byte



Gpsdata = "asdfkjadshfb:lasdfjha:lasdj:laksdfj:"



Do


   Tmp = 58                                                 'Asc( ":")
   Tmp = Searchstring(gps_ovl(1) , Tmp)
   Print Tmp


Loop

End


Function Searchstring(strar() As Byte , Strsearch As Byte) As Byte

   Local I As Byte


   Searchstring = 0                                         'Vorbelegung, wenn Zeichen nicht gefunden

   For I = 1 To 255 Step 1
      If Strar(i) = 10 Then                                 'Lf
         'Exit For
      End If
      If Strar(i) = Strsearch Then
         Searchstring = I
         'Exit For
      End If
      Print Asc(strar(i)) ; ":" ;
   Next I


End Function
Bei der Zeile "If Strar(i) = 10 Then" ....

Gruß
Chris