Расчеты

Тема в разделе "Delphi - FAQ", создана пользователем DaTre, 13 фев 2008.

  1. DaTre

    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..
     
  2. zubr

    zubr Гость

    FloatToStr, StrToFloat
     
  3. DaTre

    DaTre Гость


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

    var
    c:extended;

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


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

    zubr Гость

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

    DaTre Гость

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

Поделиться этой страницей