|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка поля Edit
Здравствуйте! Я здесь человек новый, как и в делфи.
Задали нам курсовую по делфи. Все вроде бы хорошо, вроде с помощю гуглы все нахожу но не могу выйти из замкнутого круга. У меня есть массив на 100 случайных чисел которые каждое нужно перемножить на коэффициент к1. Это действие происходит когда нажимаю кнопку старт1. Когда не водишь даные (число) в поле едит выкидует ошибку и программа завершается. Мне нужно сделать проверку данных которые водиться в поле едит. То есть если коэффициент не равен 5 сообщение: Ведите свой коэффициент. Но вот как сделать если коэффициент вобще ничему не равен (то есть в поле едит пусто)? вот код как у меня написано. коэффициент у меня должен быть переменной к1 так как дальше я его буду использовать в массиве: Код:
procedure TForm1.Button1Click(Sender: TObject); var k1:real; begin k1:=0; Label2.caption:=LabeledEdit1.Text; k1:=StrToFloat(Edit1.Text); if k1 = 5 then begin //Происходит действие с массивом, Истина end else if k1 <> 5 then begin //Сообщение об ошибке, Лож end end; Последний раз редактировалось Nevil_White, 29.10.2012 в 12:33. |
#2
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var k1: Real; begin Label2.Caption := LabeledEdit1.Text; k1 := StrToFloatDef(Edit1.Text, 0); if k1 = 5 then begin //Происходит деймтвие с массивом, Истина end else begin //Сообщение об ощибке, Лож end end; Код:
procedure TForm1.Button1Click(Sender: TObject); var k1: Extended; begin Label2.Caption := LabeledEdit1.Text; if TryStrToFloat(Edit1.Text, k1) and (k1 = 5) then begin //Происходит деймтвие с массивом, Истина end else begin //Сообщение об ощибке, Лож end end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Nevil_White (29.10.2012)
|
#3
|
|||
|
|||
попутный вопрос: как правильно сделать вывод сообщения если лож чтоб был правильный коэффициент?
|
#4
|
||||
|
||||
Цитата:
|
#5
|
|||
|
|||
Нет, я наверно не правильно выразилса. Если веденный коэффициент не правильный то нужно проинформировать пользователя чтоб он вел правильный. Я видел что нужно создать процедуру на кнопке онклик и написать showmessege но она не работает так как выкидует неизвестную команду
|
#6
|
||||
|
||||
Цитата:
Делай так: Код:
ShowMessage('Ошибочный параметр'); // Или так: MessageDlg('Ошибочный параметр', mtError, [mbOk], 0); p.s. В Delphi работает intellisense (т.е. при наборе слова автоматически либо по нажатию Ctrl+Пробел выскакивает список возможных команд). |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Nevil_White (29.10.2012)
|
#7
|
|||
|
|||
Спасибо, работает. Я так понимаю если значение лож то действие истины не выполняется?
|
#8
|
||||
|
||||
Цитата:
|
#9
|
|||
|
|||
Спасибо. Тема закрыта, я еще вернусь с массивами но позже, если возникнут проблемы =)
|