Расчеты

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

DaTre

Гость
#1
Есть 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

Гость
#4
А поменять точку на запятую в 0.7 думки не хватает? Смотреть в сторону сепаратора.