2 komandi posle THEN-a

← →
timona (2005-08-17 12:57) [0]

kak mojno napisat 2 comandi posle then? naprimer

if image1.Top<0 then image1.Top:=bitbtn1.Top-20

vot xochu uznat,sushetvuyetli kakayata komanda pozvolyayusheye,naprimer posle then peremestit image naverxu bitbtn-a i odnovremenno zavershit zadachu timera

kak bit AND

← →
Tonich © (2005-08-17 13:07) [1]

хм одновременно))))))

можно так

if image1.Top<0 then begin image1.Top:=bitbtn1.Top-20 Timer1.Enable := False; end;

← →
злобная танька (2005-08-17 13:09) [2]

можно процедуру вызвать! :)
но лучше конечно F1 нажать.. помогает!

← →
Tonich © (2005-08-17 13:13) [3]

> злобная танька (17.08.05 13:09) [2]
> можно процедуру вызвать! :)
а какую надо вызывать процедуру, чтобы

> napisat 2 comandi posle then?
?????

← →
Плохиш © (2005-08-17 13:34) [4]

> timona (17.08.05 12:57)

Это уже даже не детский сад. Тошно :-((

← →
Александр Иванов © (2005-08-17 13:35) [5]

begin ... end и все находящееся между ними называют составным оператором, так что два не получится :)

← →
злобная танька (2005-08-17 13:47) [6]

> злобная танька (17.08.05 13:47) [6]
я так и понял

Вопщим ликбез:

If dosmth="YES!!!" then begin
do1:=1;
do2:=2;
do(скока_хош):=mnogo;
end else begin
nedo1:=1;
nedo2:=2;
.........
end;

Кстати если dosmth="YES!!!" вставить в скобки, то можно еще и or присобачить... Или and например... If (издеваются, гады) and (хочется дать по шапке) then .....

Вроде все так...

2 komandi posle THEN-a Найти похожие ветки