Есть 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..

 

FloatToStr, StrToFloat

 

FloatToStr, StrToFloat

И че? Ты мне этим все объяснил. Ну поменял я на:

var
c:extended;

c:=strtofloat(edit1.Text);
form4.edit3.Text:=floattostr(c*70);
form4.show;


Всеравно когда пишу 0.7 - выкидывает с ошибкой.

 

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

 

спасибо, работает.