Есть ли в Delphi какая-то переменная, которую можно использовать вместо счётчика цикла?

В таких случаях можно было бы и не писать var. Может в VCL завалялась какая-то переменная, которую можно использовать для данных целей?

нельзя. ObjectPascal, как и Delphi - строгие языки, объявлять переменные нужно обязательно, причем тип играет огромное значение. К примеру, следующий цикл будет выполнен великое множество раз, если List.Count=0.





Не вижу смысла. Уменьшения размера программы таким образом добиться не получится. Даже если и удатся что-то найти в VCL, то это будет глобальная переменная, которая после выхода из цикла окажется в неопределенном состоянии. И кто даст гарантию, что какой-нибудь метод из VCL не захочет случайно спросить, какое же значение было раньше в этой переменной? Последствия - непредсказуемы.

даже если бы где-то в другом модуле и была ненужная переменная, использовать ее не получилось бы. Счетчик цикла должен быть объявлен там же, где и цикл

  А сиё вообще хоть в каком-нибудь языке есть?!  

Это сообщение отредактировал(а) Данкинг - 17.3.2009, 23:40

Да ну! Ну а если эта переменная глобальная, объявлена в модуле главной формы (программы)?
А из VCL нет.

Это сообщение отредактировал(а) former - 18.3.2009, 00:14

Ну да.  bems прав. Delphi по этому поводу говорит, что for loop-control variable must be a simple local variable.
А речь идет именно о переменных, объявленных в других модулях (если конкретнее - в исходниках VCL), которые планируется задействовать в своем коде в качестве счетчиков цикла.

это точно. пробовал с Tag.  Ругается.  

В  С – подобных языках это и не требуется, так как переменная объявляется прямо на месте

Но всё равно же объявление переменной присутствует, пусть и не такое, как в Дельфи ( for (i = 0;.....).

Да да!

В 2009 появилась конструкция for in

Небольшая поправка: цикл for...in...do появился еще в Delphi 2005.

 есть пару вариантов, если не устраевает обычный.
Да и в зависимости от того какую цель приследовать.

Код

procedure TForm1.Button2Click(Sender: TObject);   procedure BodyFor(i: Integer);   begin       ShowMessage( IntToStr(i) );   end; begin     asm       push eax           ;// сохраняем значение ebх       push ecx           ;// сохраняем значение eсх       mov ecx, 5       @begin:           push eax           push ecx           mov eax, ecx           call BodyFor           pop ecx           pop eax           loop @begin         @end:       pop ecx            ;// востонавливаем значение eсх       pop eax            ;// востонавливаем значение ebх (в обратном порядке)     end end;

 Сложнее чем обычный зато со спецальной управляющей есх

Код

procedure TForm1.Button3Click(Sender: TObject); var P: Pointer; begin     GetMem( P, SizeOf(Integer) );       // управляющая цикла     Integer(P^):= 5;                    // ^ справа - значение указателя     while (Integer(P^) <> 0 ) do     begin         ShowMessage( IntToStr(Integer(P^)) );         Dec( Integer(P^) );     end;     FreeMem(P);                         // нужно освободить память     GetMem( P, SizeOf(Integer) );       // строковая переменная     String(P^):= 'Строка к примеру';     ShowMessage( String(P^) );     FreeMem(P);     GetMem( P, SizeOf(TForm) );         // и даже форма     TForm(P^):= TForm.Create(nil);     TForm(P^).ShowModal;     TForm(P^).Free;     FreeMem(P);                         // <-- Не завываем освободить end;

 Этот вариант избавляет от лишних переменных
Но стоит ли так "ПАРИТЬ" себе голову? По моему этот вид лучше и проще:

Код

procedure TForm1.Button4Click(Sender: TObject); var I: Integer; begin     for I:= 1 to 5 do ShowMessage( IntToStr(I) ); end;

В Аде ЕМНИП переменная цикла автоматом становится Integer.



Если уж заговорили об экономии двух-трех символов, то позволю себе небольшой оффтопик. В Си цикл for, я за таковой вообще не считаю. Т. к. for(i=0;i<n;i++) совершенно аналогично


В обоих случаях описано ровно 3 операции. Укажите хоть одно отличие от while? На кой фиг это дебильное i++ вообще нужно, если цикл for в 99,9% случаев имеет инкремент 1?

Это сообщение отредактировал(а) Beltar - 20.3.2009, 12:33

С++  с Delphi сравнивать?   

1) переменная локальная, вне цикла ее нет, это довольно удобно, даже не собираюсь объяснять чем...
2) начальное значение, условие цикла, а также шаг (все параметры цикла) находятся на одной строке (удобочитабельно)
3) при этом есть возможность запускать цикл вот такого плана

что с while уже будет выглядеть более запутано на мой взгляд...

а на кой фиг Inc(i); ?
 (не нравится сделай свою функцию Inc() или пиши i=i+1, кто не дает)
а если серьезно то "++" много возможностей и это удобная штука, а если не умеешь ей пользоваться, то это не значит, что она "дебильная"...
4) 

у кого как... 

а это чем тебе не цикл?
На самом деле Delphi и С++ сравнивать - глупое занятие, поэтому продолжать не буду...

Это сообщение отредактировал(а) Dmi3ev - 22.3.2009, 14:48