Скачать: CL | DM;

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]

> Tonich ©   (17.08.05 13:13) [3]
не скажу

---

← →
Tonich ©   (2005-08-17 14:14) [7]

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

---

← →
George ©   (2005-08-17 23:07) [8]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c