GloThin
Тобольский шашлычник | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Victor_Dobrov,Chanka
Что Вы спорите как лучше,как правильнее отображать знаки после запятой. На вкус и цвет друзей нет.
Для исключения таких споров я некоторое время назад для скрипта NightW0lf писал такую функцию:
Код:
function JustifySize(Size1: double; count: integer): string;
var i, n: integer;
s1, s2, s3: string;
begin
n := 1;
for i := 1 to COunt do
begin
n := n * 10;
end;
s1 := floattostr(round(Size1 * n) / n);
if pos(',', s1) <> 0 then
begin
s2 := copy(s1, 1, pos(',', s1) - 1);
s3 := copy(s1, pos(',', s1) + 1, length(s1) - pos(',', s1));
end
else
begin
s2 := s1;
s3 := '000'
end;
n := length(s2);
if n < 3 then for i := 1 to (3 - n) do s2 := ' ' + s2;
n := length(s3);
if n < COunt then for i := 1 to (Count - n) do s3 := s3 + '0';
//MsgBox(s1+#13#10+s2+' --- '+s3 , mbInformation, MB_OK);
result := s2 + ',' + s3;
end;
|
Size1 - размер диска с произвольным количеством знаков после запятой, например,полученных в результате приведения числа в байтах в кило,мега и т.д. без преобразования перед этим функцией strtofloat.
count: количество знаков после запятой,которые желаешь вывести.
Так что задавайте количество знаков после запятой какое больше всего нравиться. 
----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!! |
|
