Здравствуйте! Я здесь человек новый, как и в делфи.
Задали нам курсовую по делфи. Все вроде бы хорошо, вроде с помощю гуглы все нахожу но не могу выйти из замкнутого круга.
У меня есть массив на 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;