Деление в Делфи (Delphi)

Деление в Делфи (Delphi) очень не простая задача. Почему? Например, компонент Edit имеет текстовое поле. Для этого приходиться перегонять значение переменной в другой тип данных. Везде так и написано, но это все теряет смысл, если переменная будет иметь тип Variant.

Как это все выглядит. Для проверки я создал проект. В нем два компонента Edit1 и Edit2 плюс кнопка. Зададим три переменные x,  у и z тип Variant.

[php]

x:Variant;

y:Variant;

z:Variant;

[/php]

Далее в событии кнопки будет все вычисление.

[php]

procedure TForm1.Button1Click(Sender: TObject);

begin

//x:=StrToFloat(Edit1.Text);

//y:=StrToFloat(Edit2.Text);

x:=Edit1.Text;

y:=Edit2.Text;

z:=x/y;

ShowMessage(‘Delenie = ‘ + FloatToStr(x/y));

//ShowMessage(‘Delenie = ‘ + FloatToStr(z));

end;

[/php]

Тут просто присваивается x и y значение текстовых полей Edit1 и Edit2. Далее происходит деление на выходе в сообщении. Но следует поставить обратное преобразование в текст. Для полного осознания инвертируйте комментирование. Этот метод работает. Не нужно занимать программу не нужными конвертами StrToFloat и IntToStr.

. делпфи программа деления delphi деление Delphi 7 как делить деление delphi деление в лазарусе