Filtrar registros y guardar en Array

[[eduarcol]]

A estas alturas crei que habias solucionado el problema segun los post de Lepe y delphius ya debes tener los campos que necesitas, porq la clausula DISTINCT del sql te devuelve solo una vez los campos que no se repiten, entonces si la consulta la disparas con esa clausula y utilizas el codigo que te envie para cargar el array no deberias tener problemas, cualquier duda comentalo, porq parece que has perdido el hilo

[Deiv]

Gracias a todos, era problema de SQL no más que no entendía.
Tenía razón eduarcol, la consulta de Lepe con Distinct me sirve y lo adecué a mi aplicación y funciona.

Empezado por eduarcol

A estas alturas crei que habias solucionado el problema

Vaya, ni mi Papá me llamó la atención así

Empezado por eduarcol

cualquier duda comentalo, porq parece que has perdido el hilo

Lo dije en muchas ocasiones soy audodidacta, por eso me considero Novato en Delphi, no soy ni Informático ni estudié Programación, todo aprendo desde Internet y de los Foros, y practico con Delphi de vez en cuando, cuando es necesario programar algo que me parece interesante y ahí me vienen las dudas . Sobre SQL, para mi es todo nuevo, no parece difícil el lenguaje pero se requiere su tiempo para estudiarlo y conocer sus instrucciones.

Gracias a todos salí de las dudas, y mis disculpas por todo el bollo que cause en este hilo, de todas maneras muchas gracias por vuestra paciencia. Ya lo decían: "Dedique el mayor tiempo a su pregunta, si quiere realmente ser respondido", es un buen consejo y Yo creo que no me dejé entender. Pero este hilo está solucionado.

Aunque me quedé con la duda de:

Empezado por Deiv

¿Por qué la línea:
if (B.IndexOf(FieldByName('Tipo').AsString)= -1) then
NO TRABAJA IGUAL QUE:
if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)= -1) then

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