Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Вниз

Третье по счёту число из пятизначного числа   Найти похожие ветки 

← →
Шустрый   (2003-09-09 11:17) [0]

Народ, подскажите как сделать чтобы программа выводила третье по счёту число из произвльно набранного мной ПЯТИЗНАЧНОГО числа? Спасибо!

---

← →
Романов Р.В.   (2003-09-09 11:18) [1]

число или цифру?

---

← →
Polevi   (2003-09-09 11:20) [2]

Edit1.Text[3]

---

← →
pasha_golub   (2003-09-09 11:38) [3]

2Polevi
Гы, класс! :-)

2Шустрый
var i:integer;
n5:integer;
begin
i:=12345;
n5 := ((i mod 1000) div 100);
или так
n5 := strtoint(inttostr(i)[3]);
end;

---

← →
jack128   (2003-09-09 11:38) [4]

если есть ЧИСЛО, то result:= (i div 100) mod 10
если строка, см
> Polevi © (09.09.03 11:20) [2]

---

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

Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c