Filtrar registros y guardar en Array

[[eduarcol]]

Disculpa pero no fue un regaño fue un asombro de mi parte jejeje, pues yo tambien soy autodidacta, lo que no funcionan igual se me ocurre es porq no tienen el mismo contenido :S

Ahora lo que dices que -1 suprime los valores repetidos, pues me has puesto a pensar hasta donde sabia -1 es el indice que lo devuelve si no encuentra el elemento buscado

Cualquier duda estamos a la orden y para autodidactas considero bueno la cara oculta de delphi

[Deiv]

Bueno mas vale tarde que nunca dicen , me he respondido a mi mismo, por si a alguien le interesa:

Empezado por Deiv

¿Por qué la línea:

Código Delphi [-]
if (B.IndexOf(FieldByName('Tipo').AsString)= -1) then

NO TRABAJA IGUAL QUE:

Código Delphi [-]
if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)= -1) then

Código Delphi [-]
 
with ADOQuery1 do
  begin
    first;
    while not eof do
      begin
          if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
            begin
              B.Add(FieldByName('Tipo').AsString); 
              A[x]:=FieldByName('Tipo').AsString;
              inc(x);
            end;
        next;
      end;
  end;

THis is end.