Вы не можете комментировать, т.к. не авторизованы.
|
|
Сабиров Роберт
20-09-2009 14:24 (ссылка)
3 комментария
Свернуть
Сабиров Роберт
20-09-2009 15:27 (ссылка)
Re: помогите
А условия для n-ого количества Edit одно и тоже?
Комментарии запрещены
procedure TForm1.Button1Click(Sender: TObject);
begin
if (strtoint(Edit1.Text) < 0) then
begin
ShowMessage('Х должно быть > или = 0!');
Edit1.Text := '';
end
else
begin
// Какие либо действия по ходу программы
end;
end;