Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как перевести из Кб в Мб? [D7, WinXP]

Zif © (2004-12-02 13:11:00)
пробовал так:
Label2.Caption:=StrToFloat(Label3.Caption) / 1024;

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

begin...end (2004-12-02 19:18:00) [1]
> [17] msguns © (02.12.04 18:56)

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

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

msguns (2004-12-02 18:56:00) [2]
>NAlexey © (02.12.04 13:58) [15]
>Кому это может пригодится?

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

begin...end (2004-12-02 18:28:00) [3]
> [14] Algol (02.12.04 13:56)

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

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

NAlexey (2004-12-02 13:58:00) [4]
>Zif © (02.12.04 13:55) [13]
Кому это может пригодится?

Algol (2004-12-02 13:56:00) [5]
>Label2.Caption := Format('%.2f', [StrToFloat(Label3.Caption) / 1024])

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

Zif (2004-12-02 13:55:00) [6]
Вот что у меня получилось: (мож кому пригодится)
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;

begin...end (2004-12-02 13:44:00) [7]
Ошибся я в [9]:

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

Alex_Petr (2004-12-02 13:42:00) [8]
Округление лучше обрезания:)

ламер (2004-12-02 13:41:00) [9]
FormatFloat('0.00', StrToFloat(Label3.Caption) / 1024)

begin...end (2004-12-02 13:40:00) [10]
> [8] Zif © (02.12.04 13:31)

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

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

Пример:

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

Zif (2004-12-02 13:31:00) [11]
в принципе без разницы, чем легче, тем лучше. правда если надо добавить ещё 20-30 букв в код, то лучше и округление

begin...end (2004-12-02 13:28:00) [12]
> [5] Zif © (02.12.04 13:25)

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

Алхимик (2004-12-02 13:28:00) [13]
RoundTo

Zif (2004-12-02 13:25:00) [14]
Спасибо! то, что надо! единственное... как сделать округление до формата 78,13
а то у меня получается 78,13545454

yanval (2004-12-02 13:15:00) [15]
О как одновременно получилось!

begin...end (2004-12-02 13:14:00) [16]
> Zif © (02.12.04 13:11)

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

Алхимик (2004-12-02 13:14:00) [17]

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

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

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

yanval (2004-12-02 13:14:00) [18]
Label2.Caption - строка, а ты присваиваешь число:)
Label2.Caption:=FloatToStr(StrToFloat(Label3.Caption) / 1024);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »