Ayuda con los array

[[Caral]]

Hola
Aqui el asunto esta en cambiar Length por algo que funcione ya que esto lo que hace es indicar la cantidad de elementos del array y compararlo con el dato que esta en el edit.
Es lo que se me ocurre de momento ya que no manejo bien los array.

Código Delphi [-]

  TPosicion = array[1..8] of integer;

const
  Posicion_dada: TPosicion = (1,7,3,4,8,6,2,5);

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  total, Numero :Integer;
begin
  Numero:= StrToInt(Edit1.Text);
  total := Length(Posicion_dada);
  if (Numero = total) then begin
  ShowMessage(IntToStr(Posicion_dada[total]));
  end
  else
  ShowMessage('No esta en esa posicion');
end;

Ya vendra algun maestro y ayudara.
Saludos

[Lord Delfos]

Si entiendo lo que querés hacer, sería algo así:

Código Delphi [-]
const MisDatos : array[1..8] of Integer = (13, 32, 134, 76, 9, 41, 3, 17);

procedure Buscar(QueCosa: Integer);
var Ind: Integer;
begin
  Ind:= 1;
  while (Ind <= 8) {o length(MisDatos)} and (MisDatos[Ind] <> QueCosa) do
    Inc(Ind);

  if Ind <= 8 {o Length(MisDatos)} then
    ShowMessage('Encontrado en la posición ' + IntToStr(Ind))
  else
    ShowMessage('No encontrado.');
end;

Por cierto, si lo que querés declarar es una matriz, se sigue el mismo principio:

Código Delphi [-]
const  MiMatriz: array[1..3, 1..5] of Integer = 
(
      (1, 2, 3, 4, 5),
      (1, 2, 3, 4, 5),
      (1, 2, 3, 4, 5)
);

Por cierto, hay un 99% de probabilidad de que le erres con la cantidad de valores que pongas y obtengas el error "[Error] Unit1.pas(30): Number of elements differs from declaration"... Eso es porque pusiste cuatro en vez de cinco, o mezclaste las dimensiones y pusiste 3x5 en vez de 5x3...

¿Eso es lo que querías?

Saludetes.

[snake25237]

hola..!!!! muchas gracias por su ayuda amigos me sirvió de mucho