Как перевести из Кб в Мб?

← →
Zif © (2004-12-02 13:11) [0]

пробовал так:
Label2.Caption:=StrToFloat(Label3.Caption) / 1024;

не работает..
как же правильно?
Label2 - куда записать
Label3 - откуда надо взять значение

← →
begin...end © (2004-12-02 13:14) [1]

> Zif © (02.12.04 13:11)

Label2.Caption:=FloatToStr(StrToFloat(Label3.Caption) / 1024)

← →
yanval (2004-12-02 13:14) [2]

Label2.Caption - строка, а ты присваиваешь число:)
Label2.Caption:=FloatToStr(StrToFloat(Label3.Caption) / 1024);

← →
Алхимик © (2004-12-02 13:14) [3]

> Label2.Caption:=StrToFloat(Label3.Caption) / 1024;

Label3.Caption - строка
StrToFloat(Label3.Caption) - вещественное число
StrToFloat(Label3.Caption) / 1024; - тоже вещ.число

Пропустил преобразование вещ.числа в строку

← →
yanval (2004-12-02 13:15) [4]

О как одновременно получилось!

← →
Zif © (2004-12-02 13:25) [5]

Спасибо! то, что надо! единственное... как сделать округление до формата 78,13
а то у меня получается 78,13545454

← →
Алхимик © (2004-12-02 13:28) [6]

RoundTo

← →
begin...end © (2004-12-02 13:28) [7]

> [5] Zif © (02.12.04 13:25)

Так округление или просто обрезание?

← →
Zif © (2004-12-02 13:31) [8]

в принципе без разницы, чем легче, тем лучше. правда если надо добавить ещё 20-30 букв в код, то лучше и округление

← →
begin...end © (2004-12-02 13:40) [9]

> [8] Zif © (02.12.04 13:31)

Про округление - см. [6].

Для обрезания, извините за выражение, можно воспользоваться функциями FloatToStrF или Format.

Пример:

Label2.Caption := Format("%.2f", [StrToFloat(Label3.Caption)])

← →
ламер © (2004-12-02 13:41) [10]

FormatFloat("0.00", StrToFloat(Label3.Caption) / 1024)

← →
Alex_Petr © (2004-12-02 13:42) [11]

Округление лучше обрезания :)

← →
begin...end © (2004-12-02 13:44) [12]

Ошибся я в [9]:

Label2.Caption := Format("%.2f", [StrToFloat(Label3.Caption) / 1024])

Вот что у меня получилось: (мож кому пригодится)
Button.Click begin if DataModule1.ADODataSetMainSize.IsNull then begin LabelProgramMB.Caption:="0" end else begin LabelProgramMB.Caption:=FormatFloat("0.00", StrToFloat(DataModule1.ADODataSetMainSize.Text) / 1024); end end;

← →
Algol (2004-12-02 13:56) [14]

>Label2.Caption := Format("%.2f", [StrToFloat(Label3.Caption) / 1024])

Кстати это не обрезание а округление

> [14] Algol (02.12.04 13:56)

> Кстати это не обрезание а округление

Да, Вы правы. Но так даже лучше :-)

>NAlexey © (02.12.04 13:58) [15]
>Кому это может пригодится?

Ну как учебное пособие. В смысле злоупотребления begin...end©`ом
Ну и в целом как абсолютно непонятно зачем выводимая цифирь..

> [17] msguns © (02.12.04 18:56)

> В смысле злоупотребления begin...end©`ом

Да я, в общем-то, не обижаюсь, когда мной злоупотребляют... :-)

Как перевести из Кб в Мб? Найти похожие ветки