t_id
710
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
type TFloat80Array = array [0..1000000] of Extended; procedure AddFloat80Proc(var Vector1; const Vector2; Count: Integer); var I: Integer; begin for I:=0 to Count - 1 do TFloat80Array(Vector1)[I]:=TFloat80Array(Vector1)[I] + TFloat80Array(Vector2)[I]; end; begin end.