• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Расчеты

  • Автор темы DaTre
  • Дата начала
D

DaTre

Есть form1.edit1, button1 и form2.edit1.

Надо следующее:
В form1.edit1 вводим число меньше 1го - т.е. 0.6, 0.7, 0.99, и т.д.
Нажимаем button1, и на form2.edit1, высвечивается число из form1.edit1 умноженное на 70.

Вот что я пишу:

Форма первая:


var
Form1: TForm1;
c:integer;
y:integer;
x:integer;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
c:=strtoint(edit1.Text);
form2.edit1.Text:=inttostr(c*70);
form2.show;
end;

end.

Незнаю как писать при вводе чисел меньше 1го.
Вот как я хочу:

if
edit1.text больше 1 then *70 (как целое число) и вывести в едит2.
else
*70 (как меньше единицы) и вывести в едит2..
 
Z

zubr

А поменять точку на запятую в 0.7 думки не хватает? Смотреть в сторону сепаратора.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!