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;

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.