VPF::Прикол цикла for - Форум программистов

kovalenko123

Дата 15.2.2011, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 12.5.2008

Репутация: 1
Всего: 1

Всем привет!
обнаружил странный ( по моему скромному мнению) косяк в цикле ФОР. Если в цикле к конечному значению прибавить еще значение то он выполняется все равно по старому Вот пример

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
count:=1;
for i:=1 to max do begin
    Memo1.Lines.Add(inttostr(i)+'<>'+inttostr(max));
    if(i = 5) then begin
    Button2.Click; вот тут хочу чтобы к max прибавилось еще 10 но цикл все равно будет идти до 10 (
   end;
    inc(count);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
max:=max+10;
end;

Как можно победить эту проблему?

Это сообщение отредактировал(а) kovalenko123 - 15.2.2011, 06:41

Присоединённый файл ( Кол-во скачиваний: 2 )

tre.rar 6,04 Kb

Frees

Дата 15.2.2011, 08:14 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

for - вычисляет конечное значение 1 раз

Выход - переделать на while.

--------------------

Кольцов Виктор Владимирович

cat512

Дата 15.2.2011, 09:15 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 7
Всего: 15

это не прикол, а нормальное поведение цикла, причём в большинстве языков програмирования.

kovalenko123

Дата 15.2.2011, 10:14 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 12.5.2008

Репутация: 1
Всего: 1

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
count:=1;
 while count <= max do begin
    Memo1.Lines.Add(inttostr(count)+'<>'+inttostr(max));
    if(count = 5) then begin
    max:=max+10;
   end;
    inc(count);
end;
end;

Спасибо

z101x

Дата 28.3.2011, 05:48 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

автору респект =)))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »