[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

[Bargest]

Функция Round округляет дробное до целого.

Код:

 k:=Round(a);

[NIch]

Дополню
http://www.delphisources.ru/pages/fa...Round.php.html

[angvelem]

Или в зависимости от требуемого:

Код:

 k:=Trunc(a);

отсечь дробную часть. Но справку никто не отменял, жмём F1 и...

[larexxx]

Извиняюсь за незнание матчасти, но я не могу никак примень данную функцию. что делать с переменной 'К'?

[angvelem]

Присвоить к pnl1.Caption, а лучше, возьми всё своё выражение в круглые скобки и перед ними напиши Round, Trunc или, что там требуется.

[larexxx]

Уже по всякому пробовал........может кто посмотрит в чем ошибка...вот файл проекта
http://narod.ru/disk/27078238001/1.rar.html
целый день уже потерял........

[angvelem]

Так:

Код:

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

только возможна ошибка, если вместо запятой поставить точку в Edit-е. Нужно проверять ввод символов в Edit и, если точка менять на запятую.

[larexxx]

ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!

[chainik]

между прочим это не все.
есть еще функции

Код:

Ceil-округл в сторону увеличения
Floor-в сторону уменьшения
Trunc-в сторону нуля (те отбрасывает дробную часть)
Round-до ближайшего целого

Загляни в справку. Модуль Math- там полно всякой
очень полезной всячины.