Помогите друзья, может кто сталкивался (delphi 5):
function split64(k:b8;tab:arr56):dw2;
var
k2:b8;
k22:b4;
i,j,ii,jj,bit1,bit2 :byte;
begin
for i:=0 to 7 do begin
bit1:=1; bit2:=1;
for j:=0 to 6 do begin
bit1:=bit1 shl j;
ii:=tab[i,j] div 8; jj:=tab[i,j] mod 8;
bit2:=bit2 shl jj;
if k[ii] and bit2>0 then k2[i]:=k2[i] or bit1;
end;
end;
for i:=0 to 3 do k22[i]:=k2[i];
result[0]:=pack28(k22);
for i:=0 to 3 do k22[i]:=k2[i+4];
result[1]:=pack28(k22);
end;
К примеру, в этой процедуре стоит цикл
for i:=0... и т.д., в отладчике на первом же шаге
i:=8. Хотя во втором цикле с
j вроде бы нет проблем. Может это из-за asm-вставок, где-то что-то криво?
И так и сяк пробовал. Заменяю цикл
for - на
while - работает... но там у меня много подобных функций...
Если не лень, посмотрите, пожалуйста!!!
Вот сюда я скинул проек
