[Lotles]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array[1..10] of integer;
i:integer;
begin
for i:=1 to 11 do
if i>3 then Arr[i]:=0 else Arr[i]:=1;
Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;

Почему отладчик не находит ошибку в этой строке

Код:

if i>3 then Arr[i]:=0 else Arr[i]:=1;

[Страдалецъ]

Я тоже не нахожу А что-бы отладить правильно if, его надо писать в несколько строк:

Код:

if i>3 
then Arr[i]:=0 
else Arr[i]:=1

[Lotles]

Сообщение от Страдалецъ

Я тоже не нахожу А что-бы отладить правильно if, его надо писать в несколько строк:

Код:

if i>3 
then Arr[i]:=0 
else Arr[i]:=1

Не, так тоже не находит !

[Lotles]

Вспомнил про

Код:

{$R+}

Код:

{$R *.dfm}
{$R+}

procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array[1..7] of integer;
i:integer;
begin
for i:=1 to 11 do
if i>3 then Arr[i]:=0 else Arr[i]:=1;
Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;

Щас все норм

[Konrad]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array[1..7] of integer;
i:integer;
begin
for i:=1 to 11 do
if i>3 then Arr[i]:=0 else Arr[i]:=1;
end;

Массив от 1 до 7, а причем тогда тут 11-ть?:
for i:=1 to 11 do