Знаки после запятой.

@Ronald017 · Регистрация: 04.05.2012

Author24 — интернет-сервис помощи студентам

Помогите плиз,я весь инет обшарил на форуме все ветки прошустрил,ничего не помогает,меня этот дельфи одолел уже((( уже устал(( помогите пожалйста, мне нужно после запятой пару чисел только... эти ошибки уже достали... вот код мой

Delphi

procedure TForm5.BitBtn6Click(Sender: TObject);
var a,b:integer;
begin
a:=StrToInt(StringGrid1.Cells[2,3]);
b:=StrToInt(StringGrid1.Cells[3,3]);
StringGrid3.Cells[1,1]:=FloatToStr((a/b),ffFixed, 10, 3);
 
 end;
end.

пишет такую ошибку тоо many actual parameters
может и тупые вопросы,но я только пару недель изучаю дельфи,и много не могу,помогите...

Одиночка · 04.05.2012, 16:09

Используй функцию FormatFloat:

Delphi

1	StringGrid3.Cells[1,1]:=FormatFloat('0000000.00',(a/b));

Не по теме:

И обновляй периодически страницу. Иначе не увидишь, когда выложат ответ.

@Ronald017 · 04.05.2012, 16:21 **[ТС]**

Сообщение от Одиночка

Используй функцию FormatFloat:

Delphi

1	StringGrid3.Cells[1,1]:=FormatFloat('0000000.00',(a/b));

Не по теме:

И обновляй периодически страницу. Иначе не увидишь, когда выложат ответ.

Громадное человеческое спасибо,просто ограмадное!!!! все заработало! спасибо!!!

Добавлено через 3 минуты
Ещё вопросик,если можно,а что бы можно было обойтись без нулей перед цифрой, не так 002,40 а вот так 2,40, так можно сделать как нибудь?

Одиночка · 04.05.2012, 16:24

Попробуй так:

Delphi

1	StringGrid3.Cells[1,1]:=FormatFloat('#######.00',(a/b));

А вообще ставь курсор на имя функции и нажимай F1.

@Ronald017 · 04.05.2012, 16:31 **[ТС]**

Сообщение от Одиночка

Попробуй так:

Delphi

1	StringGrid3.Cells[1,1]:=FormatFloat('#######.00',(a/b));

А вообще ставь курсор на имя функции и нажимай F1.

Происходит такая вещь,если я делю большее число на меньшее,то все отлично,когда наоборот же,меньшее на большее, то значение на выходе дает такой результат к примеру "12/15" получается ",80"... а наоборот все нормально "15/12" = "1,25"...

Одиночка · 04.05.2012, 16:33

Ну, один 0 перед точкой в формате поставь: '######0.00'

@Ronald017 · 04.05.2012, 16:34 **[ТС]**

Сообщение от Одиночка

Ну, один 0 перед точкой в формате поставь: '######0.00'

Всё спасибо за помощь,теперь буду знать... Еще раз спасибо!

@Ronald017 · 08.05.2012, 15:22 **[ТС]**

А как ограничить количество знаков после запятой в таком случае,подскажите пожалуйста?

Delphi

1	StringGrid3.Cells[2, 1]:=FloatToStr(StrToFloat(Form1.StringGrid1.Cells[2, 3])/StrToFloat(Form1.StringGrid1.Cells[3, 3]))

WoodHead · 08.05.2012, 16:05

Ronald017, а всего-то надо было применить функцию FloatToStrF, а не FloatToStr.
В твоем примере FloatToStrF(a,ffFixed, 10, 3): 10 - это точность отображения числа, а 3 - количество знаков после запятой.

Добавлено через 11 минут
Аналог с функцией FormatFloat:
- FormatFloat('0.##0',a ) - округление на 3 знаке после запятой.

@Ronald017 · 08.05.2012, 17:44 **[ТС]**

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

Ronald017, а всего-то надо было применить функцию FloatToStrF, а не FloatToStr.
В твоем примере FloatToStrF(a,ffFixed, 10, 3): 10 - это точность отображения числа, а 3 - количество знаков после запятой.

Добавлено через 11 минут
Аналог с функцией FormatFloat:
- FormatFloat('0.##0',a ) - округление на 3 знаке после запятой.

Спасибо большое,все работает!)

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	04.05.2012, 16:33	6
	Ну, один 0 перед точкой в формате поставь: '######0.00' 1

@Ronald017 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 15
	04.05.2012, 16:34 [ТС]	7
	Сообщение от Одиночка Ну, один 0 перед точкой в формате поставь: '######0.00' Всё спасибо за помощь,теперь буду знать... Еще раз спасибо! 0

WoodHead 105 / 104 / 29 Регистрация: 15.01.2011 Сообщений: 496
	08.05.2012, 16:05	9
	Ronald017, а всего-то надо было применить функцию FloatToStrF, а не FloatToStr. В твоем примере FloatToStrF(a,ffFixed, 10, 3): 10 - это точность отображения числа, а 3 - количество знаков после запятой. Добавлено через 11 минут Аналог с функцией FormatFloat: - FormatFloat('0.##0',a ) - округление на 3 знаке после запятой. 3

@Ronald017 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 15
	08.05.2012, 17:44 [ТС]	10
	Сообщение от WoodHead Ronald017, а всего-то надо было применить функцию FloatToStrF, а не FloatToStr. В твоем примере FloatToStrF(a,ffFixed, 10, 3): 10 - это точность отображения числа, а 3 - количество знаков после запятой. Добавлено через 11 минут Аналог с функцией FormatFloat: - FormatFloat('0.##0',a ) - округление на 3 знаке после запятой. Спасибо большое,все работает!) 0