[Nevil_White]

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

[poli-smen]

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

Мне нужно сделать проверку данных которые водиться в поле едит. То есть если коэффициент не равен 5 сообщение: Ведите свой коэффициент. Но вот как сделать если коэффициент вобще ничему не равен (то есть в поле едит пусто)?.....

Код:

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;

Пробуй так:

Код:

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;

[Nevil_White]

попутный вопрос: как правильно сделать вывод сообщения если лож чтоб был правильный коэффициент?

[poli-smen]

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

попутный вопрос: как правильно сделать вывод сообщения если лож чтоб был правильный коэффициент?

В том месте где условие ложно просто присваивай переменной k1 правильный коэффициент.

[Nevil_White]

Нет, я наверно не правильно выразилса. Если веденный коэффициент не правильный то нужно проинформировать пользователя чтоб он вел правильный. Я видел что нужно создать процедуру на кнопке онклик и написать showmessege но она не работает так как выкидует неизвестную команду

[poli-smen]

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

Нет, я наверно не правильно выразилса. Если веденный коэффициент не правильный то нужно проинформировать пользователя чтоб он вел правильный. Я видел что нужно создать процедуру на кнопке онклик и написать showmessege но она не работает так как выкидует неизвестную команду

Нельзя в программе использовать неизвестные команды.
Делай так:

Код:

  ShowMessage('Ошибочный параметр');
  // Или так:
  MessageDlg('Ошибочный параметр', mtError, [mbOk], 0);

p.s. В Delphi работает intellisense (т.е. при наборе слова автоматически либо по нажатию Ctrl+Пробел выскакивает список возможных команд).

[Nevil_White]

Спасибо, работает. Я так понимаю если значение лож то действие истины не выполняется?

[poli-smen]

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

Спасибо, работает. Я так понимаю если значение лож то действие истины не выполняется?

Да. Не ложь это истина, а не истина это ложь.

[Nevil_White]

Спасибо. Тема закрыта, я еще вернусь с массивами но позже, если возникнут проблемы =)