タイトル

// GPSのログの行を手動変更した場合のchecksumの再計算など
function GPS_NMEA_Line_Checksum(s : string) : integer;
  var
   i , sum : integer;
begin
  // $data*<CR><LF>
  // $と*の間の文字をxorします
  // Todo : 1文字目が $以外は例外生成
  sum := 0;
  s := Trim(s);
  for i := 1 to Length(s) do
   begin
     if (i = 1) and (s[1] = '$') then continue;
     if (s[i] = '*') then break;
      sum := sum xor  Byte(s[i]);
   end;
   Result := sum;
end;

procedure TForm1.Button_RecalcClick(Sender: TObject);
begin
  Edit2.text := Format('%.2x' , [ GPS_NMEA_Line_Checksum(Edit1.text)]);
end;

procedure TForm1.Button_ClearClick(Sender: TObject);
begin
  Edit1.text := '';
end;