Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Команда goto или что-то наподобие... [D7, XP]


EZHIK ©   (2006-05-14 14:45:00) 

А возможно ли сделать так, что бы при нажатии на кнопку программа в зависимости от каких-то переменных отправляла выполнение к какой-то определенной процедуре - одной, другой, третьей и т.д.? Например как в бейсике: если а=1, то выполнять строку 4, а если а=2, то строку 7...


Галинка   (2006-05-14 17:32:00) [1]

Сделать можно, причем как минимум двумя методами:

1) если получаете целочисленное значение, типа ComboBox(ListBox).ItemIndex, то case'ом:

case ComboBox.ItemIndex of
0: proc1
1: proc2
2: proc3
...
end;


2) если просто логические условия, то:

if a then proc1 else
if b then proc2 else
...
...                  else
procend;


EvS   (2006-05-14 16:02:00) [2]

>[3] EZHIK   (14.05.06 15:47)

>А как их (процедуры) вызвать?

Ну ты бы хоть азы-то почитал.Или даже в справку лень заглянуть.

A procedure call consists of the name of a procedure (with or without qualifiers), followed by a parameter list (if required). Examples include

PrintHeading;
Transpose(A, N, M);
Find(Smith, William);
Writeln('Hello world!');
DoSomething();
Unit1.SomeProcedure;
TMyObject.SomeMethod(X,Y);

With extended syntax enabled ({$X+}), function calls, like calls to procedures, can be treated as statements in their own right:

MyFunction(X);

When you use a function call in this way, its return value is discarded.


EZHIK   (2006-05-14 15:47:00) [3]


> оформляй код процедурами и вызывай их в зависимости от условия.


А как их (процедуры) вызвать?


Vudu   (2006-05-14 15:40:00) [4]

Как мне говорил препод (любитель фортрана) - "У тебя программа неможет работать, там нет ни одного GOTO"


antonn   (2006-05-14 14:51:00) [5]

тут нет строк (есть label, но не будет о нем:). оформляй код процедурами и вызывай их в зависимости от условия.


Наверх

Титульная страница Поиск, карта сайта Написать письмо