gehen nur von 0..9... binär oder als (
ASCII)Zeichen ???
wenn
ASCII, dann so:
i := Integer(Data[0] and $0f) * 100 + Integer(Data[1] and $0f) * 10 + Integer(Data[2] and $0f);
i := 481 * i + 117;
Data[0] := $30 + ((i div 100) mod 10);
Data[1] := $30 + ((i div 10) mod 10);
Data[2] := $30 + (i mod 10);