[d1sable]

Ребят, как сделать так чтобы

Если Edit1.Text равен 123 , то Button1.Enabled := false;

Зарание спасибо!

[d1sable]

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

Ребят, как сделать так чтобы

Если Edit1.Text равен 123 , то Button1.Enabled := false;

Зарание спасибо!

Код:

if CommandLabel.Caption = 'Command : Play' then
Form1.Left:=0;
Form1.Top:=0;
x := 434;
y := 258;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
Application.Restore;
ButtonStop.Enabled:=true;
ButtonPlay.Enabled:=false;

if CommandLabel.Caption = 'Command : Stop' then
Form1.Left:=0;
Form1.Top:=0;
x := 60;
y := 472;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
Application.Restore;
ButtonStop.Enabled:=false;
ButtonPlay.Enabled:=true;

Вот так у меня не прокатывает(Запускаются всеравно обе и сразу)

[Bargest]

Если Edit1.Text равен 123 , то Button1.Enabled := false;

По событию OnChange Edit'а сравнить Edit1.Text с '123'.

[d1sable]

А как сделать сравнение!?

[Bargest]

Гхм.

Код:

if Edit1.Text = '123' then
 Button1.Enabled:=false
else
 Button1.Enabled:=true;

[d1sable]

Код:

[Error] tvo_online.pas(154): 'END' expected but 'ELSE' found
[Error] tvo_online.pas(158): ';' expected but 'IF' found
[Error] tvo_online.pas(196): '.' expected but ';' found
[Fatal Error] tvo_client_project.dpr(5): Could not compile used unit 'tvo_online.pas'

Что бы эта ошибка значила?