Повтор операции

@Denis69k · Регистрация: 04.07.2013

Студворк — интернет-сервис помощи студентам

Как сделать повтор операции ?
Допустим вывод в label.
Берем число повторений из spinedit.
Допустим если число 2, то он два раза повторяет label='ккк', и после двух раз он написал label='rrr'

DenNik · 04.11.2015, 15:23

абсолютно непонятно, ЧТО нужно и главное, ЗАЧЕМ это нужно?

Добавлено через 2 минуты

Сообщение от Denis69k

Как сделать повтор операции ?
Допустим вывод в label.

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

@Denis69k · 04.11.2015, 15:26 **[ТС]**

DenNik, Я просто пример в label привел.
Нужно повторить одну и туже функцию столько раз, сколько указано в spinedit, когда количество повторений функция кончиться, то выполнить другую.

DenNik · 04.11.2015, 15:40

ну и повторяй в цикле, кто мешает?

@Denis69k · 04.11.2015, 15:42 **[ТС]**

Так подскажи как цикл этот написать, я же не просто так создал тему.

DenNik · 04.11.2015, 15:49

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure MyProc;
begin
  // do something;
end;
 
procedure ButtonClick;
var
  i: integer;
begin
  for i:= 1 to SpinEdit.Value do MyProc;
  // do something else after end of loop
end;

сложно?

@Denis69k · 04.11.2015, 16:10 **[ТС]**

DenNik, Как я понял, он будет повторять операцию MyProc. Но как сделать чтобы после окончания попыток выполнил другую.

DenNik · 04.11.2015, 16:13

ты тему "циклы" изучал? так изучи и узнаешь, что по окончании цикла выполнение передается оператору, стоящему сразу после цикла. я ж написал

Сообщение от DenNik

// do something else after end of loop

@Denis69k · 04.11.2015, 17:11 **[ТС]**

DenNik,for i:= 1 to SpinEdit.Value do MyProc;
Myproc1.

Если делаю так, ток он сразу выполняет Myproc1.

DenNik · 04.11.2015, 17:17

какой код в MyProc?

Добавлено через 20 секунд
какое значение SpinEdit.Value?

@Denis69k · 04.11.2015, 17:40 **[ТС]**

В Spinedit 2.
Вот код.

Delphi
1
2
for i:= 1 to SpinEdit.Value do Rezult:=-1;
     Rezult:=0;

А вот процедура.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TNewThread.Sync;
begin
 case Rezult of
   1:begin
      form1.smemo.lines.add('Удачно');
   end;
  -1:begin
      form1.smemo.lines.add('Ошибка');
       end;
  0:begin
      form1.smemo.lines.add('Не пройдено');
       end;
       end;
 end;

Добавлено через 3 минуты
DenNik, в

DenNik · 04.11.2015, 17:52

Сообщение от Denis69k

for i:= 1 to SpinEdit.Value do Rezult:=-1;
Rezult:=0;

и как ты думаешь, чему в итоге будет равен Result? наводящий вопрос: а может ли при таком коде значение быть равным -1?

@Denis69k · 04.11.2015, 17:56 **[ТС]**

DenNik, Я не пендрю и в этом признаюсь, от того что ты написал я умнее не стану. Можешь подсказать рабочий код *?

DenNik · 04.11.2015, 18:01

Сообщение от Denis69k

Можешь подсказать рабочий код *?

рабочий код чего? что он должен делать? я тебе объясняю по твоему коду: ты присвоил значение -1 и СРАЗУ ЖЕ присвоил значение 0. Вопрос в стиле задач для 1го класса: чему в итоге равно значение?
сюда же до кучи: зачем в цикле несколько раз присваивать одно и тоже значение?

@Denis69k · 04.11.2015, 18:35 **[ТС]**

DenNik, Я же говорю, нужно сделать чтобы он выполнял Rezult:=-1, столько раз сколько в spinedit, а после выполнить Rezult:=0;

Добавлено через 32 минуты
DenNik, Поможешь ?

@northener · 04.11.2015, 20:26

Не по теме:

Сообщение от Denis69k

от того что ты написал я умнее не стану. Можешь подсказать рабочий код *?

А от рабочего кода станешь?

@NIKOLAYY · 04.11.2015, 21:10

Сообщение от Denis69k

Допустим если число 2, то он два раза повторяет label='ккк', и после двух раз он написал label='rrr'

Лови!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  label1.Caption := 'kkk';
 
  for i := 1 to SpinEdit1.Value do
  begin
    label1.Caption := label1.Caption + 'kkk';
  end;
 
  label1.Caption := label1.Caption + 'rrr';
end;

@Denis69k · 05.11.2015, 22:40 **[ТС]**

NIKOLAYY, При таком действии постоянно действует операция

Delphi
1
label1.Caption := label1.Caption + 'kkk';

@AHBAR · 06.11.2015, 16:36

Сообщение от NIKOLAYY

Лови!

под его условие так точнее будет:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  label1.Caption := '';
 
  for i := 1 to SpinEdit1.Value do
  begin
    label1.Caption := 'kkk';
  end;
 
  label1.Caption := 'rrr';
end;

только при нажатии button у тебя в итоге label1.caption будет равен 'rrr' а то что ему будет присваиваться 'kkk' ты не увидишь

@NIKOLAYY · 06.11.2015, 19:04

Сообщение от Denis69k

При таком действии постоянно действует операция

Какая разница где и что действует, ты пиши свой пример, по своей технологии.

Пиши куски кода где надо им действоать и где ненадо.

Чо ты спросил то и написали тебе, другое спосиш- другое напишут!

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183

	Повтор операции 04.11.2015, 14:49. Показов 3612. Ответов 21 Метки нет (Все метки) Как сделать повтор операции ? Допустим вывод в label. Берем число повторений из spinedit. Допустим если число 2, то он два раза повторяет label='ккк', и после двух раз он написал label='rrr' 0

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183
	04.11.2015, 15:26 [ТС]
	DenNik, Я просто пример в label привел. Нужно повторить одну и туже функцию столько раз, сколько указано в spinedit, когда количество повторений функция кончиться, то выполнить другую. 0

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	04.11.2015, 15:40
	ну и повторяй в цикле, кто мешает? 0

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183
	04.11.2015, 15:42 [ТС]
	Так подскажи как цикл этот написать, я же не просто так создал тему. 0

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183
	04.11.2015, 16:10 [ТС]
	DenNik, Как я понял, он будет повторять операцию MyProc. Но как сделать чтобы после окончания попыток выполнил другую. 0

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183
	04.11.2015, 17:11 [ТС]
	DenNik,for i:= 1 to SpinEdit.Value do MyProc; Myproc1. Если делаю так, ток он сразу выполняет Myproc1. 0

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	04.11.2015, 17:17
	какой код в MyProc? Добавлено через 20 секунд какое значение SpinEdit.Value? 0

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183
	04.11.2015, 17:56 [ТС]
	DenNik, Я не пендрю и в этом признаюсь, от того что ты написал я умнее не стану. Можешь подсказать рабочий код *? 0

@Denis69k 2 / 2 / 0 Регистрация: 04.07.2013 Сообщений: 183
	04.11.2015, 18:35 [ТС]
	DenNik, Я же говорю, нужно сделать чтобы он выполнял Rezult:=-1, столько раз сколько в spinedit, а после выполнить Rezult:=0; Добавлено через 32 минуты DenNik, Поможешь ? 0