Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как убрать число из цикла, как убрать число из цикла 
:(
    Опции темы
leon2009
Дата 6.9.2020, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



как в делфи 7, из цикла убрать число?
Код

for i := 1 to 8 do
begin
for j := 1 to 8 do
begin
//form1.arr[i,j].ResetRotations;
form1.memo1.Lines.Add(form1.arr[i, j].Name+inttostr(i)+inttostr(j));
end;end;

в мемо выводит так: 11 12 13 14 15 16 17 / 21 22 23 24 25 26 27 28 / 
как убрать пр: 24 = (i=2, j=4)
PM MAIL   Вверх
Агрох
Дата 7.9.2020, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 177
Регистрация: 6.4.2013
Где: Москва

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



Перед "form1.memo1.Lines.Add":
Код

if (i = 2) and (j = 4) then
Continue;


Более универсальное решение это заносить сами цифры - только те, которые нужны, в массив и перечислять уже элементы массива.
Код

var
  iArr, jArr: array of integer;
  i, j: integer;
begin
  SetLength(iArr, 5);
  iArr[0] := 1;
  iArr[1] := 3;
  iArr[2] := 7;
  iArr[3] := 19;
  iArr[4] := 1115;

  SetLength(jArr, 5);
  jArr[0] := 11;
  jArr[1] := 32;
  jArr[2] := 76;
  jArr[3] := 142;
  jArr[4] := 675;

  for i := 0 to pred(Length(iArr)) do
    for j := 0 to pred(Length(jArr)) do
      form1.memo1.Lines.Add(form1.arr[iArr[i], jArr[j]].Name+inttostr(iArr[i])+inttostr(jArr[j]));
end;


Это сообщение отредактировал(а) Агрох - 7.9.2020, 11:17
--------------------
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
leon2009
  Дата 8.9.2020, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Спасибо!!!  smile  ...
PM MAIL   Вверх
leon2009
Дата 8.9.2020, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



 smile  я правда так и не понял почему все работает главное работает! smile 
в теории: 
Код

if cube=2 then begin
for i := 1 to 8 do
begin
for j := 1 to 8 do
begin
if (i = 1) and (j = 2) then 
begin =  обратить внимания 
Continue;
form1.MySphere[i,j].ResetRotations;
end;
end;
end;
end;

НО и так все крутиться и вовремя останавливает  smile  Continue 
Код

if cube=2 then begin
for i := 1 to 8 do
begin
for j := 1 to 8 do
begin
if (i = 1) and (j = 2) then 
--------пусто =  обратить внимания 
Continue;
form1.MySphere[i,j].ResetRotations;
end;
end;
end;

PM MAIL   Вверх
Агрох
Дата 8.9.2020, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 177
Регистрация: 6.4.2013
Где: Москва

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



Continue принудительно прерывает текущую итерацию цикла и переходит к следующей. Т.е. весь код, которые после Continue, вплоть до конца тела цикла, не выполняется, но и цикл не прерывается.
--------------------
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.1361 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.