как зациклить цыкл for в delphi 2006

extrim_boy
Дата: 13.11.2007 20:39:29
подскажите пожалуста как зациклить цикл FOR в delphi 2006 (именно там)
Зараннее благодарен!!!
A.K.
Дата: 13.11.2007 20:41:51
А в чем особенность Delphi 2006?
Anatoly Podgoretsky
Дата: 13.11.2007 20:47:41
А зачем тогда FOR используй WHILE
А особенностей в 2006 нет никаких
Страдалецъ
Дата: 13.11.2007 22:09:41
Ну можно поробовать таким способом:
for i := 0 to 1
do i := 0;
Только оптимизатор выключите, а то в силу своей бессмысленности скорее всего этот код будет исключен из проекта.
A.K.
Дата: 13.11.2007 22:18:09
Monsieur знает толк в извращениях...
Miher
Дата: 14.11.2007 11:57:11
Страдалецъ
Ну можно поробовать таким способом:
for i := 0 to 1
do i := 0;
Только оптимизатор выключите, а то в силу своей бессмысленности скорее всего этот код будет исключен из проекта.

Я конечно все понимаю, но все таки еще не пятница :), переменную цикла for менять в цикле нельзя
Entaro Adun
Дата: 14.11.2007 12:09:07
Miher
переменную цикла for менять в цикле нельзя

Глупости...
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  pint : ^integer;
begin
  pint := @i;
  for i := 0 to 100 do
    begin
      pint^ := pint^ + 10;
    end;
end;
Лучше сказать, не надо этого делать...;)
Miher
Дата: 14.11.2007 12:28:22
Entaro Adun
Miher
переменную цикла for менять в цикле нельзя

Глупости...
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  pint : ^integer;
begin
  pint := @i;
  for i := 0 to 100 do
    begin
      pint^ := pint^ + 10;
    end;
end;
Лучше сказать, не надо этого делать...;)

Хотел сказать что этого сделать нельзя в нормальной конструкции цикла, с таким успехом можна обойти любые ограничения :)
Альт
Дата: 14.11.2007 15:31:32
Miher
Entaro Adun
Miher
переменную цикла for менять в цикле нельзя

Глупости...
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  pint : ^integer;
begin
  pint := @i;
  for i := 0 to 100 do
    begin
      pint^ := pint^ + 10;
    end;
end;
Лучше сказать, не надо этого делать...;)

Хотел сказать что этого сделать нельзя в нормальной конструкции цикла, с таким успехом можна обойти любые ограничения :)


будем ближе к идее... можно было и сократить кучу операций через
pii : ^integer absolute ii;

вот такой вариант уже вполне читабелен...
procedure TForm1.FormCreate(Sender: TObject);
var
  ii : integer;
begin
  for ii := 0 to ii - 1 do
    ShowMessage( 'Preved medved \o/' );
end;
Entaro Adun
Дата: 14.11.2007 16:38:38
Альт
можно было и сократить кучу операций через
pii : ^integer absolute ii;
Спорно...)