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...

Código Delphi [-]
 
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;