[[David]]

Hola

Quiero encontrar un elemento en un array , pongo dos posibilidades , me interesa sobremanera saber la primera .

Primera opción :

Código Delphi [-]
var
miarray : array[0..n] of integer;
begin
 // Los valores dados al array no van a estar nunca repetidos
 miarray[0] := 12;
 miarray[1] := 14;
 miarray[5] := 2;
..................
 miarray[n] := X;

For i:= 0 to LastMilista do
begin
   //quiero saber , si un número esta en el array , sin tener que hacer esto :
    for j:=0 to high(miarray) do // esto son demasiados pasos , pregunto por algo más directo
     if i = miarray[j] then
end;
end;

Ahora pongo la segunda opción (esta es menos importante) ;

Código Delphi [-]
type
TRegistro = record;
articulo : string;
campo2: integer;
...
end;

implementation

procedure TForm1.Loquesea;
var
 PRegistro : array[0..n] of TRegistro;
miarticulo : string;
begin
PRegistro[0].Articulo := 'xxxx';
...........
Pregistro[n].Articulo := 'zzzz';

while not MilistaArticulos.eof do
begin
if miarticulo = ¿? then // Aquí que código pongo para ver si esta en el array y saber que posición del array es,en el anterior caso no pregunto la posición del array sólo saber si esta.
end;
end;

Un saludo