Взять цифру из числа

[Kolik317]

Доброго времени суток=)
Подскажите как из переменной типа Integer равной некому числу взять например предпоследнюю (третью) цифру этого числа?

То есть например:
A:=2490;
B:=?
B должно равняться 9...
В яваскрипте есть функция b=a.substr(2,3), есть ли аналог substr в делфи?



БЛИН ТУПЛЮ УДАЛИТЕ НАФИГ - MOD 100

[Sm1Le]

inttostr - поможет, перевод числа в строку ... а там можно уже брать то что надо ...

[Kolik317]

а какой функцией из строки брать?


удаляйте нафиг мне спать пора))
вроде надо как к массиву обращаца да? квадратные скобки)

[Пепел Феникса]

в джава там похоже через строку идет.
я бы так сделал.

var s:string;
     a,b:integer;
begin
A:=2490;
s:=IntToStr(A);
B:=StrToInt(s[Length(s)-1]);

[Sm1Le]

str:string;
i: integer;

i:=123;

str:=inttostr(i);
i:=strtoint(str[2]);

i=2

[Kolik317]

ага спасибо, а в джава там не через строку, там пофиг через что))) типы автоматические же

[evg_m]

примерно так

while x>1000 do
  x:=x div 10;
//оставили только первые 3 цифры x<=999
result:=x mod 10;

[Kolik317]

спасибо спасибо)))
я все таки сделал так
strtoint(inttostr(ds0)[6])