StackTrace vs Code

[p80286]

Das ist aber ungewöhnlich, 1400 Bytes in einem Byte zu addieren, das schreit ja geradezu nach Nebeneffekten.

versuch es mal so;

Delphi-Quellcode:

btemp:integer;

for i:=1 to 1400 do
  btemp:=btemp+ab[i];
btemp:=btemp and FF;
b:=btemp;

Gruß
K-H