| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как перевести число в обратном порядке?

Страницы:   < 1 2 >

Asprofi ©   (2005-09-10 14:11:00) 

Люди помогите!
Вот нужно сделать программу перевода чисел в обратном порядке,
подскажите как это осуществить?

---

Kolan   (2005-09-10 14:33:00) [21]

Преобразуй число в строку.
Number := {Твое число}.
S := IntToStr(Number);
{Все осталось перевернуть. Например можно так. А скорее есть готовая функция}
Temp := '';
for I := Length(S) downto 1 do
 Temp := Temp + S[I];
Result := StrToInt(Temp);

---

html_   (2005-09-10 14:23:00) [22]

Если было 12345 а стало 54321. Или как?

---

Страницы:   < 1 2 >

Наверх