2-а знака после запятой - Помощь студентам

vitamin.rulez · 22.05.2009, 12:32

Здарова всем, как сделать так чтобы в числе отображалось только 2-а знака после запятой

Naive · 22.05.2009, 12:43

в паскале было так:
A:6:2
А - переменная, 6 - кол-во знаков отведенное на все число, 2 - кол-во знаков после запятой.

SERG1980 · 22.05.2009, 12:51

ну а если в делфи то

Код:

a:real;
 formatfloat('0.00',a)

vitamin.rulez · 22.05.2009, 14:54

не работает, ошибки ни какой не пишет, просто не работает

Stilet · 22.05.2009, 15:08

Цитата:

не работает, ошибки ни какой не пишет, просто не работает

Код в студию.

vitamin.rulez · 22.05.2009, 15:13

var a: real;
begin
a:=StrToFloat(edit1.Text);
FormatFloat('0,00',a);
Edit2.Text:=FloatToStr(a);
end;

SERG1980 · 22.05.2009, 15:31

Код:

Edit2.Text:=formatfloat('0.00',a);

vitamin.rulez · 22.05.2009, 16:02

точно, спс, так работает

22.05.2009, 12:32	#1
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	2-а знака после запятой Здарова всем, как сделать так чтобы в числе отображалось только 2-а знака после запятой

22.05.2009, 12:43	#2
Naive Раздолбайских Дел Старожил Регистрация: 22.05.2009 Сообщений: 3,828	в паскале было так: A:6:2 А - переменная, 6 - кол-во знаков отведенное на все число, 2 - кол-во знаков после запятой. Alar, верни репу!

22.05.2009, 12:51	#3
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	ну а если в делфи то Код: `a:real; formatfloat('0.00',a)`

22.05.2009, 15:31	#7
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Код: `Edit2.Text:=formatfloat('0.00',a);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
удаление не нужных знаков после запятой.	Alar	Общие вопросы Delphi	4	31.05.2012 19:59
знаки после запятой	RiF	Помощь студентам	10	16.12.2008 20:04
Количество цифр после запятой	LIEN	БД в Delphi	7	03.07.2008 22:12
Как округлять числа до целых и как оставить два знака после запятой.	bles	Помощь студентам	9	19.02.2008 21:53
Сокращение после запятой	Romuald	Microsoft Office Excel	21	18.12.2007 10:32

22.05.2009, 14:54	#4
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	не работает, ошибки ни какой не пишет, просто не работает

22.05.2009, 15:13	#6
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	var a: real; begin a:=StrToFloat(edit1.Text); FormatFloat('0,00',a); Edit2.Text:=FloatToStr(a); end;

22.05.2009, 16:02	#8
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	точно, спс, так работает