Hab jetzt nochmal von vorne angefangen mit dem text zerlegen. Bin jetzt soweit das ich einzelne zeilen habe die immer in variable z geschrieben werden (bis * also ende der informationen die ich benötige)
Delphi-Quellcode:
procedure TForm1.ComPortTriggerAvail(CP: TObject; Count: Word);
begin
{ OnTriggerAvail; Read the data }
for I:= 0 to Count -1 do
Data := ComPort.GetChar;
z := z + Data;
if Data = '*' then
begin
Memo1.Text := z;
z := '';
end;
end;
Sobald dieser punkt ereicht ist (*) wird diese variable gelöscht und nue beschrieben mit der nächsten Zeile. so jetzthab ich schon mal die einzelnen zeilen. jetzt war mein gedanke, das man an der stelle bevor die variable gelöscht wird eine funktion einfügt die Aufgrund von pos('GPGGA',z) > 0 oder ('GPGSA',z) > 0 oder ('GPRMC',z) > 0 dann den string an den kommas zerlegt und die einzelnen stücke ind das entsprechende array (GPGGA[x], GPGSA[x] oder GPRMC[x] da ich aber eher noch unbetucht bin hab ich keinen blassen schimmer wie ich das anstellen soll Mein ersten Versuch seht ihr ja oben! Also wenn jemand nen ansatz oder womöglich schon ne fertige funktion hat wäre ich sehr dankbar!
mfg
btbe