Как в программе отсеч лишние знаки после запятой?

[drknn]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Ishodnoe,Rezultat:Extended;
  SkolkoOtsech,BezDrobi,i:Integer;
begin
  // отсекаем лишние знаки. Для этого производим умножение на 10
  Ishodnoe:=StrToFloat(Edit1.Text);
  SkolkoOtsech:=StrToInt(Edit2.Text);
  for i:=1 to SkolkoOtsech do
    begin
      Ishodnoe:=Ishodnoe*10;
    end;
  BezDrobi:=Trunc(Ishodnoe);// отбрасываем всё, что после запятой
  // Теперь ставим запятую на место
  Rezultat:=BezDrobi;
  for i:=1 to SkolkoOtsech do
    begin
      Rezultat:=Rezultat/10;
    end;
  Edit3.Text:=FloatToStr(Rezultat);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;

end.

[SERG1980]

Егор выклыдывайте ваш проект и мы вам его поправим так будет проще, потому что мне кажеться вы не хотите читать предыдущие посты, в которых Вам указали на ваши ошибки

[Vervolf]

просим исходник.

[egor088]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
RadioGroup1: TRadioGroup;
Label4: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real; c,d,e,f,i,s,n :extended;

begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=b/0.7;
c:=Trunc(c*10)/10;
d:=a/30;
d:=Trunc(d*10)/10;
e:=c-d;
f:=e*n;
f:=Trunc(f*100)/100;
i:=d*5.5;
i:=Trunc(i*100)/100;
s:=f+i;
Label4.Caption:=FloatToStrF(s,ffFix ed,4,1);
begin
case RadioGroup1.ItemIndex of
0: n:=4.6;
1: n:=5.8;

end;
end;

end.

[GunSmoker]

Да, едрён-батон, отформатируй ты код-то.

Сразу и увидишь, что begin перед case лишний.

[asmodey1]

http://www.programmersforum.ru/showthread.php?t=16664
(там, правда, без флуда, но все равно интересно )

[egor088]

Сообщение от GunSmoker

Да, едрён-батон, отформатируй ты код-то.

Сразу и увидишь, что begin перед case лишний.

Отформатировал .Удалил begin.
Программа заработала.Но вводимые цифры в EDIT2 не считает.Не могу
понять почему?

[GunSmoker]

Но вводимые цифры в EDIT2 не считает

А конкретней? Или пора утюг с полки доставать?

[egor088]

Сообщение от egor088

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
RadioGroup1: TRadioGroup;
Label4: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real; c,d,e,f,i,s,n :extended;

begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=b/0.7;<-------------------------------- вот это значение не считает
c:=Trunc(c*10)/10;
d:=a/30;<---------------------------------считает только по этому и соответственно результат
d:=Trunc(d*10)/10;
e:=c-d;
f:=e*n;
f:=Trunc(f*100)/100;
i:=d*5.5;
i:=Trunc(i*100)/100;
s:=f+i;
Label4.Caption:=FloatToStrF(s,ffFix ed,4,1);
case RadioGroup1.ItemIndex of
0: n:=4.6;
1: n:=5.8;

end;
end;

end.

Может связано с RadioGroup?

[egor088]

Всем спасибо за помощь.
Всё работает.

Тема закрыта.