Programación multibyte
No hay muchas pruebas, pruébelo usted mismo, la cadena entrante es 12 23 23 42 23 AA CA (¿el cálculo final es algún tipo de código de verificación?)
Ejemplo de función (cadena: cadena): cadena; p>
Definir variables
lista: Tstringlist;
I, suma: entero;
Inicio
lista:= tstringlist . Crear;
ExtractStrings([' '], [' '], pchar(trim(str)), lista
suma: = 0 >Para que i := 0 aparezca en la lista. Count - 1 do
Inicio
if trim(list[I]) lt; gt Empecemos
sum:= sum str point(' $ ' list [I]);
suma := suma y $FF
Fin
Fin;
Resultado: = intttohex (suma) , 2);
Fin;
Prueba
mostrar mensaje(ejemplo(' 12 23 23 42 23 AA CA ')); >El resultado es 31.