|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2011, 18:55 | #1 |
Новичок
Джуниор
Регистрация: 28.05.2011
Сообщений: 1
|
как вызвать одну и ту же процедуру несколько раз
Подскажите пожалуйста как вызвать процедуру vibor1 так чтобы она выполнялась до тех пор пока ListBox1 не станет пустым, при этом, чтобы до ее окончания не выполнялась аналогичная vibor2 v
procedure vibor1; begin s:=''; if Form1.ListBox1.Items.Count >= 0 then begin lb:=1; Form1.ListBox4.Items.Add(Form1.List Box1.Items[Form1.ListBox1.Items.Count-1]); Form1.ListBox1.Items.Delete(Form1.L istBox1.Items.Count-1); s:=Form1.ListBox4.Items[0]; n:=StrToInt(s[5]); t[n]:=t[n]-4; if t[n]> 0 then sec:=4; Form1.Timer1.Enabled:=true ; if (t[n] <= 0) then sec:=t[n]+4; Form1.Timer1.Enabled:=true; end; Form1.Edit1.Text:=IntToStr(t[n]); end; procedure TForm1.Button2Click(Sender: TObject); begin sec:=4; Form1.Timer1.Interval:=1000; begin vibor1; end; vibor2 end; |
28.05.2011, 19:07 | #2 | |
Форумчанин
Регистрация: 13.05.2010
Сообщений: 670
|
если это
Цитата:
if замени на while |
|
28.05.2011, 19:16 | #3 |
Пользователь
Регистрация: 31.01.2011
Сообщений: 54
|
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как вызвать процедуру из другого Unit | pavellyba | Общие вопросы Delphi | 7 | 01.05.2011 01:35 |
как повторно вызвать процедуру? | iiunbreakableii | Общие вопросы Delphi | 8 | 24.06.2010 13:32 |
как вызвать процедуру? | ai\ekcah^p | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 25.06.2009 11:21 |
Как вызвать одну форму из другой? | JamS007 | Общие вопросы C/C++ | 10 | 21.11.2008 19:33 |
Как вызвать процедуру ??? | Marat | Помощь студентам | 8 | 02.03.2007 15:11 |