из массива в число

[Seran4ek]

имеется массив хранящий допустим 5 цифр. Есть ли короткая процедура перевода этого массива в число?
тоесть у меня массив [1,2,1,2,4] и чтобы получилось 12124 .
мне сразу в голову пришло записать эти значения в лейблу а с нее через strtoint в число. но есть ли короче путь?

[N1KeL]

A[0]*10000 + A[1]*1000 + A[2]*100 + A[3]*10 + A[4]
В твоем случае по этой формуле:
1*10000 + 2*1000 + 1*100 + 2*10 + 4 = 12124

[Alex_FF]

если кол-во элементов массива X равно L, и начальный йндекс 1 - то

var
  Y: Integer;
begin
  Y := 0;
  for I :=1 to L do
    Y := Y * 10 + X[I];
end;

[evgenij9241]

К сожелению нету корочево пути(((((((((((
Ну есть просто они могут бить не ефективны.