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

Есть число или 5-значное 70001 или 6-значное 120034   Найти похожие ветки 

← →
Catik   (2005-07-11 15:53) [0]

Есть число или 5-значное 70001
или 6-значное 120034
Как оставить последние 4 знака, т.е в певом случае 0001 должно быть.
Спасибо

---

← →
jack128 ©   (2005-07-11 15:54) [1]

IntToStr + copy + F1

---

← →
Ega23 ©   (2005-07-11 15:55) [2]

Есть число или 5-значное 70001

Число 70001 на самом деле семнадцатизначное.
И попробуй доказать, что это не так.

---

← →
gydvin   (2005-07-11 15:57) [3]

var
i:integer;
s:string
begin
s:=copy(inttostr(i),length(inttostr(i))-4,4);
end;

---

← →
Digitman ©   (2005-07-11 15:59) [4]

showmessage(formatfloat("0000", 70001 mod 10000))
showmessage(formatfloat("0000", 120034 mod 10000))

---

← →
Fay ©   (2005-07-11 16:00) [5]

2 gydvin   (11.07.05 15:57) [3]
s := Copy(IntToStr(i), Length(IntToStr(i)) - 4, 4);
Не многовато?

---

← →
gydvin   (2005-07-11 16:02) [6]

ну минус три

---

← →
Fay ©   (2005-07-11 16:04) [7]

2 gydvin   (11.07.05 16:02) [6]
Вот зарплату бы с таким пофигизмом получали 8)

---

← →
gydvin   (2005-07-11 16:07) [8]

офыбочка вышла :-(

---

← →
Pearled ©   (2005-07-11 16:14) [9]

Если числа целые, то можно mod 10000

---

← →
REA   (2005-07-11 16:49) [10]

RightStr(Text, 4) еще

---

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

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



Память: 0.46 MB
Время: 0.034 c