[Алина1912]

У меня в программке нужно ввести анализ крови. Нужно будет в Edit ввести некоторое число и если он будет меньше конкретного числа,то выводится одно сообщение в Memo,если меньше то другое.и кнопка есть,на которую нажимают для ввода числа в поля/ как это все записать?

[Bargest]

Код:

если a > b то мемо.текст = '1' иначе если a < b то мемо.текст = '2';

Теперь переводим, оформляем, радуемся и сдаем лабу.

[Snake22]

Код:

if StrToInt(Edit1.text)>1 then
  begin
  Memo1.lines.add('У вас группа крови больше единицы !');
  end
  else if StrToInt(Edit1.text)>-1 then
   begin
  Memo1.lines.add('У вас нулевая и выше группа крови!');
  end
  else if StrToInt(Edit1.text)=-11 then
   begin
  Memo1.lines.add('У вас минус 11 группа крови!');
  end;

Админ: Бан на 4 дня за некорректное оформлние кода.

[Alegun]

Сообщение от Алина1912

...Нужно будет в Edit ввести некоторое число и если он будет меньше конкретного числа,то выводится одно сообщение в Memo,если меньше то другое.и кнопка есть,на которую нажимают для ввода числа в поля...

В модуле StrUtils для этого есть одна очень подходящая функция IfThen, вот вариант работы с ней, на форме должны быть Memo, Edit и Button

Код:

uses 
StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  Memo1.Text
  ('Введенное число ' +
   IfThen(StrToInt(Edit1.Text) < 1, // главное условие, если число меньше 1
   'меньше',  // то выводится это сообщение,
   'больше') +// иначе т.е. если число больше 1, показывается вот это сообщение
  ' единицы');
 end;