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