[larexxx]

Помогите пожалуйста округлить результат до целого.
Вкратце о программке: есть формула расчета, три поля для ввода данных (Edit), при нажатии на кнопку(Button) выводится результат в поле Panel.

Код:

unit Zn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    pnl1: TPanel;
    btn1: TButton;
    edt3: TEdit;
    lbl2: TLabel;
    lbl1: TLabel;
    lbl3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var a:string;
begin
a:=FloatToStr((((StrToFloat(Edt1.Text)-StrToFloat(Edt2.Text))*StrToFloat(Edt3.Text)*65.4)/63.5)*1.28);
pnl1.Caption:=a;
end;

end.

Админ: Пользуемся тегами для оформления кода!

http://saveimg.ru/show-image.php?id=...42687571639560