[valvl63]

Здравствуйте.
Помогите, плиз.

Модуль AudioGenie3.

Как вывести в Label продолжительность файла в мегабайтах.
В этом модуле только в байтах.

Пример:

Код:

label1.Caption:=inttostr(a.AUDIODurationMillisW);

[NumLock]

в байтах размер файла обычно измеряется. 1МБ = 1024КБ = 1024^2Б

[valvl63]

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

в байтах размер файла обычно измеряется. 1МБ = 1024КБ = 1024^2Б

Это я знаю.
Мне надо, чтобы было, например:

AUDIODurationMillisW выводит 2500000 B -
это 2500000/1024/1024=2,4 mB

Точнее:
AUDIODurationMillisW - продолжительность,
а AUDIOFileSizeW - размер.

[angvelem]

Ну так ведь уже написали и сам также писал.

Код:

  Label1.Caption := FloatToStr(a.AUDIOFileSizeW / 1024 / 1024) + 'Mb';

[valvl63]

Спасибо!!!

Господа, сделайте милость, округлите до одной цифры после запятой.
Ну никак не могу врубиться.
"Я не художник, я только учусь".

[angvelem]

Format спасёт

Код:

  Label1.Caption := Format('%.1f Mb', [a.AUDIOFileSizeW / 1024 / 1024])';

[valvl63]

Спасибо.
Я сделал так:

var
z: string;

Код:

z:= floattostr(a.AUDIOFileSizeW / 1024 / 1024);
          label1.Caption:=floattostr(RoundTo((strtofloat(z)),-1))+' mb';

Но не знаю, пойдет в бегущую строку.

Все, пошла строчка.

[angvelem]

Излишнее усложнение.

[valvl63]

Ну, не стал у меня ваш код

[valvl63]

опечатка была

Код:

label1.Caption:=format('%.1f Mb', [a.AUDIOFileSizeW / 1024 / 1024]);

всё нормалек.
Еще раз спасибо.

[angvelem]

Да, не заметил лишний апостроф.