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

[egor088]

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

Вот часть кода:

 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit2.Text);
 c:=b/0.7;
 d:=a/30;
 e:=c-d;
 f:=e*4.6;
 i:=d*5.5;
 s:=f+i;
 Edit3.Text:=FloatToStrF(s,ffFixed,4,1);

В значениях с и d отсеч до десятых.

[InternetStranger]

Первое, что пришло на ум.

C := Round(C*10) / 10; // Округляет до десятых
D := Trunc(D*10) / 10; // Отсекает все после десятых

[egor088]

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

Первое, что пришло на ум.

C := Round(C*10) / 10; // Округляет до десятых
D := Trunc(D*10) / 10; // Отсекает все после десятых

Спасибо.Только не надо округлять.
А до сотых?

[InternetStranger]

До сотых - 100 вместо 10.
До тысячных - 1000 вместо 10.
Закономерность улавливаете?

[egor088]

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

До сотых - 100 вместо 10.
До тысячных - 1000 вместо 10.
Закономерность улавливаете?

Большое спасибо.
Все работает.

[asmodey1]

"Ну вы, блин, даете..."
Есть же функция форматирования :

Label1.Caption:=FormatFloat('0.00', 12.34567);

[egor088]

И еще скажите где ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var a,b,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;
 Edit3.Text:=FloatToStrF(s,ffFixed,4,1);
end;

 procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
  0: n:=4
  1: n:=5
end;

[New man]

После операторов в case .. of ставятся знаки ;

[InternetStranger]

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

"Ну вы, блин, даете..."

Ничего мы никому не даем (жадные). Есть определенные отличия строки от числа. Хотя бы в том, что, например, числа можно складывать, а еще умножать и делить.
Первый пост посмотрите еще раз. FloatToStrF(s,ffFixed,4 ,1); Одну из функций строкового форматирования автор уже использовал. Из чего м/о было бы предположить, что требуется арифметически отсечь.

Не... ну можно конечно строку отформатировать и затем преобразовать.
Что-то типа

 C:= Double(trim(Format('%5.2f',[C])))

[egor088]

Сообщение от New man

После операторов в case .. of ставятся знаки ;

Пожалуйста по подробней