If Then Else

[Zeraim]

Здрасть, чтото меня смутило немного, наверное я головой ударился:
if ... then begin
...
...
...
else
...
...
end;
Поидее должно работать, но у меня дельфи матюгается что ненаходит ; и, что я гдето end забыл Наверное я всетаки головой ударился =\\

[Droid]

if a=b then
begin
.... ;
....
end
else
if b=c then
begin
....;
....;
end;

[Zeraim]

спс работает, видать от паскаля в дельфи одно название 8)

[Droid]

или так
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : real;
begin
a:=1;
b:=2;
c:=3;

if a+c=4 then
begin
memo1.lines.add(floattostr(c));
end
else
if a+b<>4 then
begin
memo1.Clear;
end;
end;

[MusicMan]

...Else точки с пяткой пред собой не выносит

[Dj_smart]

А вообще - то это делается еще проще:
if ... then begin
...
...
...
end else begin
...
...
end;

[Droid]

Сообщение от Dj_smart

А вообще - то это делается еще проще:
if ... then begin
...
...
...
end else begin
...
...
end;

Это если у тебя одно условие if и несколько иначе а если надо 2 условия человеку

Вот мне раньше когда начал изучать делфи сказли что надо пистать только так я потом и запарывался на этом ) Лучше отвтетить полно )

[Droid]

if ... then begin
...
...
...
end else begin
...
...
end
else
if ... then
begin
...
...
...
end;

[makemesmile]

здравствуйте, подскажите мне, что неправильно? нужно чтобы, при клике на кнопку, она становилась неактивна.
if Form1.Button2.Click then Form1.button2.Enabled :=false;
Дельфи Ругается..

[ZvEr_HaCkEr]

Поставить это на нажатие 1 кнопки

Form1.button2.Enabled :=false;