Array to Bin / Bin to Array

[totti14]

Hallo,
ih rechne z.Z folgende Aufgabe so: Data[0..2] := 481 * Data[0..2] + 171;

Delphi-Quellcode:

Var
  Data:[0..2] of byte;
  v9 : Integer; 

...
  Data[0]:= 4;  Data[1]:= 7;  Data[2]:= 5; 
  v9 := (100 * Data[0]) + (10 * Data[1] + Data[2]); // [4][7][5] = v9 =475  := StrToInt()
  v10 := (481 * v9 + 117) mod 1000; // V10 = 592
  Data[0] := v10 div 100; // Index[0]  [ 5 ][7][5]
  // --
  v8 := (Word(v10) div 100) shl 16;
  v8 := v8 + (Word(v10) mod 100); // v8 = 327772
  // --
  Data[1] := byte(v8) div 10; // Index[1] [5][ 9 ][5]
  // --
  Data[2] := Word(v10) mod 10; // Index[2] Rest
  // = [5][9][2]

Geht das ganze eleganter unter flotter, da es als Teil später auf einer GPU laufen muss. Also kein StrToInt usw.

Gruß, Totti