Перевести текст edit'а в число и разделить на 100

[Marsel737]

Всем доброго времени суток.

Сильно не пинайте, вопрос наверняка уже не раз задвалася на форуме, но я не нащол, наверна не так искал. Вообщем мне нужно взять текст из edit'а, перевести его в число, а потом разделить на 100 и обратно в текст edit'а.

Я хотел сделать так:

Edit2.Text := IntToStr(StrToInt(Edit1.Text) / 100);

Но несоответсвие типов тогда extended и integer. А функции для extended типа ExtToStr нету, вот по этой ссылке http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1182 про приведении типов всё почитал, но ничего не нашол

[mihali4]

Edit2.Text := IntToStr(Round(StrToInt(Edit1.Text) / 100));

Вы меня нешуточно удивили...

[Marsel737]

mihali4, знаю, самому стыдно

Ре:

Хм, а чем отличается деление div от Round()/? Получается же то же самое. Я вместо Round()/ использовал div в своей прогремме, но мне нужно точное деление, чтобы к примеру было 120/100=1,2, а не 1.

[MalCer]

но мне нужно точное деление, чтобы к примеру было 120/100=1,2, а не 1

Edit2.Text := FloatToStr(StrToInt(Edit1.Text) / 100);

[SnX]

Marsel737
Иди-ка ты книжку хотя бы по основам языка почитай.

Хм, а чем отличается деление div от Round()/?

div - делит без остатка, т.е. результат - целая часть.
Round() - огругляет число по правилам.

Edit2.Text := FloatToStr(StrToInt(Edit1.Text) / 100);

[Marsel737]

MalCer, спасибо, это то что нужно.

SnX, давай-ка не уазывай-ка. Всего в голове не удержиш