| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть число или 5-значное 70001 или 6-значное 120034 [D7, WinXP]
Catik © (2005-07-11 15:53:00)Есть число или 5-значное 70001
или 6-значное 120034
Как оставить последние 4 знака, т.е в певом случае 0001 должно быть.
Спасибо
REA (2005-07-11 16:49:00) [1]RightStr(Text, 4) еще
Pearled (2005-07-11 16:14:00) [2]Если числа целые, то можно mod 10000
gydvin (2005-07-11 16:07:00) [3]офыбочка вышла :-(
Fay (2005-07-11 16:04:00) [4]2 gydvin (11.07.05 16:02) [6]
Вот зарплату бы с таким пофигизмом получали 8)
gydvin (2005-07-11 16:02:00) [5]ну минус три
Fay (2005-07-11 16:00:00) [6]2 gydvin (11.07.05 15:57) [3]
s := Copy(IntToStr(i), Length(IntToStr(i)) - 4, 4);
Не многовато?
Digitman (2005-07-11 15:59:00) [7]showmessage(formatfloat('0000', 70001 mod 10000))
showmessage(formatfloat('0000', 120034 mod 10000))
gydvin (2005-07-11 15:57:00) [8]var
i:integer;
s:string
begin
s:=copy(inttostr(i),length(inttostr(i))-4,4);
end;
Ega23 (2005-07-11 15:55:00) [9]Есть число или 5-значное 70001
Число 70001 на самом деле семнадцатизначное.
И попробуй доказать, что это не так.
jack128 (2005-07-11 15:54:00) [10]IntToStr + copy + F1
| |
