Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

Команда goto или что-то наподобие...   Найти похожие ветки 

 
EZHIK   (2006-05-14 14:45) [0]

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


 
antonn ©   (2006-05-14 14:51) [1]

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


 
Vudu ©   (2006-05-14 15:40) [2]

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


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


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


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


 
EvS ©   (2006-05-14 16:02) [4]

>[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.


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

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

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;



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

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
1-1145453390
Uriy
2006-04-19 17:29
2006.05.28
Transporent на канве


6-1138786688
Denin
2006-02-01 12:38
2006.05.28
NetUserSetGroups - не могу переместить пользователя из группы.


1-1144157193
DancerMan
2006-04-04 17:26
2006.05.28
TWebBrowser и динамически формируемая страничка


6-1138388766
KLAUS
2006-01-27 22:06
2006.05.28
Ошибка сценария Interner Explorer


2-1147193334
BAngel
2006-05-09 20:48
2006.05.28
свой указатель мышки