11.02.2013, 10:37
|
Прохожий
|
|
Регистрация: 11.02.2013
Сообщения: 2
Репутация: 10
|
|
Код:
var A:String;
begin
A:=Edit1.Text;
Label1.Caption:=A;
If (StrToInt(A) < 0)then
Label1.Caption:='Число меньше нуля.';
If (StrToInt(A) = 0)then
Label1.Caption:='Число равно нулю';
If (StrToInt(A) > 0)then
Label1.Caption:='Число больше нуля';
Исходник нужен?
|