Что за ошибка? как убрать?

@halif · Регистрация: 04.04.2012

Author24 — интернет-сервис помощи студентам

Ошибка возникает при первом запуске программы, если ее закрыть программа работает нормально, коментил куски кода и вот получил, если закоментить вот этот кусок

Код

if  (OP[2]='6') and((op1[1]='I')or (op1[1]='L'))and ((op2[1]='I')or (op2[1]='L'))   then  begin          //T6(+)

  if op1[1]='L'  then     begin

  bz2:=op1[2]; bz1:=strtoint(bz2); bz6:=TId[bz1];
          AddLine(#9'mov ax,' +bz6);
                            end
  else  if op1[1]='I' then begin
  bz2:=op1[2]; bz1:=strtoint(bz2); bz6:=TL[bz1];
                      AddLine(#9'mov ax,' +bz6); end;

  if op2[1]='L' then     begin
bz2:=op2[2]; bz1:=strtoint(bz2); bz10:=TId[bz1];
          AddLine(#9'mov bxs,' +bz10);
end
else  if op2[1]='I' then  begin  bz2:=op2[2]; bz1:=strtoint(bz2); bz10:=TL[bz1];AddLine(#9'mov bx,' +bz10);end;
AddLine(#9'add ax,bx');     end;

то ошибка исчезает но аналогичных кусков много почему они не вызывают ошибки а этот вызывает?

Код

 /////////  ниже кусок если закоментить то ошибки нет

  if  (OP[2]='6') and((op1[1]='I')or (op1[1]='L'))and ((op2[1]='I')or (op2[1]='L'))   then  begin          //T6(+)

  if op1[1]='L'  then     begin

  bz2:=op1[2]; bz1:=strtoint(bz2); bz6:=TId[bz1];
          AddLine(#9'mov ax,' +bz6);
                            end
  else  if op1[1]='I' then begin
  bz2:=op1[2]; bz1:=strtoint(bz2); bz6:=TL[bz1];
                      AddLine(#9'mov ax,' +bz6); end;

  if op2[1]='L' then     begin
bz2:=op2[2]; bz1:=strtoint(bz2); bz10:=TId[bz1];
          AddLine(#9'mov bxs,' +bz10);
end
else  if op2[1]='I' then  begin  bz2:=op2[2]; bz1:=strtoint(bz2); bz10:=TL[bz1];AddLine(#9'mov bx,' +bz10);end;
AddLine(#9'add ax,bx');     end;

                          ///////////////






            if  (OP[3]='4') and((op1[1]='I')or (op1[1]='L'))and ((op2[1]='I')or (op2[1]='L'))   then  begin          //T14(/)

  if op1[1]='L'  then     begin

  bz2:=op1[2]; bz1:=strtoint(bz2); bz6:=TId[bz1];
          AddLine(#9'mov ax,' +bz6);
          AddLine(#9'cwd');            // ax-> dx:ax
                            end
  else  if op1[1]='I' then begin
  bz2:=op1[2]; bz1:=strtoint(bz2); bz6:=TL[bz1];
                      AddLine(#9'mov ax,' +bz6); end;
                      AddLine(#9'cwd');            // ax-> dx:ax

  if op2[1]='L' then     begin
bz2:=op2[2]; bz1:=strtoint(bz2); bz10:=TId[bz1];
          AddLine(#9'mov bxs,' +bz10);
end
else  if op2[1]='I' then  begin  bz2:=op2[2]; bz1:=strtoint(bz2); bz10:=TL[bz1];AddLine(#9'mov bx,' +bz10);end;
AddLine(#9'div bx');     end;

ниже как видите идет такой же но он ошибки не вызывает

	21.05.2013, 15:50