Есть число или 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]

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

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

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

RightStr(Text, 4) еще