Скачать: CL | DM;

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

← →
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])

---

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

Вот что у меня получилось: (мож кому пригодится)

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])

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

---

← →
NAlexey ©   (2004-12-02 13:58) [15]

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

---

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

> [14] Algol   (02.12.04 13:56)

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

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

---

← →
msguns ©   (2004-12-02 18:56) [17]

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

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

---

← →
begin...end ©   (2004-12-02 19:18) [18]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.023 c