Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2011.07.24;
Скачать: [xml.tar.bz2];

Вниз

Циклы   Найти похожие ветки 

 
alexan ©   (2009-12-09 20:36) [0]

Всем привет! Кто знает, можно ли в Delphi внутри процедуры
организовать цикл, так же состоящий из процедур?


 
Rouse_ ©   (2009-12-09 20:37) [1]

Рекурсию?
На пальцах хотябы обьясни что именно нужно - бо не понятен вопрос.


 
Anatoly Podgoretsky ©   (2009-12-09 20:53) [2]

> alexan  (09.12.2009 20:36:00)  [0]

А по русски?


 
alexan ©   (2009-12-09 21:08) [3]

procedure TForm1.Button7Click(Sender: TObject);
    begin

здесь должен начаться цикл

end;

procedure(1)

begin
........

end;

procedure(2)

begin

........

end;

procedure(3)

begin

.......

end;

здесь должен закончиться цикл.


 
{RASkov} ©   (2009-12-09 21:15) [4]

> [3] alexan ©   (09.12.09 21:08)

Именно так нельзя, но можно примерно так:
procedure TForm1.Button7Click(Sender: TObject);
procedure(1)
begin
........

end;
procedure(2)
begin
........

end;
procedure(3)
begin
.......

end;
begin

здесь должен начаться цикл
procedure(1);
procedure(2);
procedure(3);
здесь должен закончиться цикл.

end;


 
{RASkov} ©   (2009-12-09 21:18) [5]

procedure TForm1.Button7Click(Sender: TObject);
 procedure Proc1;
 begin
 ........

 end;
 procedure Proc2;
 begin
 ........

 end;
 procedure Proc3;
 begin
 .......

 end;
begin

 здесь должен начаться цикл
  Proc1;
  Proc2;
  Proc3;
 здесь должен закончиться цикл.

end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2011.07.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.002 c
2-1302199698
Xalexo
2011-04-07 22:08
2011.07.24
Копирование файла по маске


1-1257584203
alexrayne
2009-11-07 11:56
2011.07.24
resources vs ini для сохранения свойств


15-1302080998
oldman
2011-04-06 13:09
2011.07.24
Windows7 и DOS-окна


4-1249279630
DevilDevil
2009-08-03 10:07
2011.07.24
Выделен текст в ComboBox


15-1300952669
test_test
2011-03-24 10:44
2011.07.24
Дайте по рукам





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский