Как объединить цифры в одно число?

[y.barninets]

Как объединить цифры в одно число?
Например:
a: = 45; / / тип longint
b: = 84; / / тип longint
Образовать число c, которое равно объединению цифр a и b, то есть с: = 4584
Реально такая простая вещь, но очень нужно. Только чтобы не переводить цифры в строку (string) и так объединять, потому что это занимает много времени ...

[alex_fcsm]

i:=1;
while (b div 10)>0 do begin 
                              inc(i);
                              b:=b div 10;
                             end;
for j:=1 to i do
  a:=a*10;
c:=a+b;

[andrewpalkin]

Вот только не забудь использовать временную переменную b , иначе потом прибавлять ноль будешь , а не изначальное число

[y.barninets]

спасибо!....

[iBuTTHead]

Есть еще один топорный вариант. Все числа перегоняеш в строки. затем делаеш конкантенацию, после чего преобразуешь в числовое значение)...

Ход через африку, но все же)) Так что первое в голову пришло.