Filtrar registros y guardar en Array

[Deiv]

Gracias por las respuestas, estoy muy liado en esto
Encontré el error del post #5, y es que mi array tenía el tamaño [0..3]. Cuando le puse [0..100] arranca normal, pero para comprobar si llenaba bien el Array modifiqué un poquitín el código por:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
type
  UnArray = array[0..100] of string;
var
  i,j,x:  integer;
  A:UnArray;
  B:TStringList;
const
  sqlElementos = ' Select * from elementos ';
begin
  x:=0;
  B:= TStringList.Create;
  ADOQuery1.Active:= False;
  ADOQuery1.Sql.text:= sqlElementos;
  ADOQuery1.Active:= True;
  with ADOQuery1 do
    begin
      first;
      while not eof do
        if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
           begin
              ComboBox2.Items.Add(FieldByName('Tipo').AsString);//Agregué un Combo
              A[x]:= FieldByName('Tipo').Value;
              inc(x);
              next;
           end;
    end;
end;

Y desplegando el ComboBox2 NO me filtra nada de nuevo, me llena TODOS los Registros de esa columna, he ahi donde se explica el error que me lanzaba Delphi, pues dicha línea no me filtraba y sobrepasaba la capacidad del Array; Pregunta:
¿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

que con -1 suprime los valores repetidos???

Empezado por eduarcol

Si lo que quieres es agregar el resultado de la consulta al arreglo con eso bastara no tienes necesdiad del stringlist

No sé cómo se podría realizar un tipo de consulta de manera que me filtre valores sin repetir, pues por ejemplo los códigos:

Código Delphi [-]
ADOQuery1.Sql.text := sqlElementos + ' where Tipo = "Metal"';

ó

Código Delphi [-]
ADOQuery1.Sql.text := sqlElementos + ' where Tipo = "Anfotero"';

Estas Consultas lo único que me muestran son varios campos "Metal" repetidos, contando todos los que existen en la BD o en el otro caso muchos "Anfótero" y obviamente al lado los otros campos que si son diferentes, pero a mi solo me interesa capturar TODOS LOS NO REPETIDOS de la Columna "Tipo". Di un ejemplo con 4 (solo fue un ejemplo) pero si fueran 300, ahí cambia la cosa verdad?
Por ello estoy trancado en la línea:

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

He decidido mejor adjuntar los ejemplos para que os puedas revisaros.
¿Alguna otra sugerencia, por favor?

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