Ingresar un núm de 10 digitos...

[coronado]

Saludos

Estoy empezando en delphi, y quiero saber como programar esto que encontre en monografias.com: Ingresar un número que tenga 10 digitos, donde cada digito debe ser almacenado en una posicón de un arreglo..

Gracias por la ayuda

Coronado

[Lonidas]

Prueba con esto...

var
arreglo:array[1..10]of integer;
i:integer;

begin
for i:=1 to 10 do
begin
arreglo[i]:=strtoint(edit1.text[i]);
end;
for i:=1 to 10 do
begin
showmessage(inttostr(arreglo[i]));
end;

:D