Filtrar registros y guardar en Array

[[Delphius]]

Hola Deiv,

¿Estás guardando en una misma tabla estos dos campos: Nombre y Tipo?
Porque no logro entender acabadamente lo que deseas hacer...

Si la respuesta es afirmativa, te aconsejo que hagas este tipo de relación:

Tabla_Tipos -< Tabla_Elementos

Es decir que guardes en la tabla Tipos el nombre y a cada uno se le asocia un ID. Lo mismo para la tabla Elementos.

Si lo que deseas es obtener unicamente los tipos simplemente haces:

Código SQL [-]
select Tipos.Descripcion from Tipos

Una vez que lanzas la consulta es cuestión de ir leyendo los registros devueltos e insertarlos en el array que tu tengas declarados.

Por favor, si estoy equivocado y entendí mal avisame.
Saludos,

[Deiv]

Encontré este ejemplo en el Foro de Ruben_Cu:

Código Delphi [-]
 
with TuTabla do
          begin
               DisableControls; //puede no ser necesario
               first;
               while not eof do
               begin
                    if (ComboBox1.Items.IndexOf(FieldByName('Idiomas').AsString)=-1)then //en caso que existan registros iguales solo cargaría uno
                    ComboBox1.Items.Add(FieldByName('Idiomas').AsString);
                    next;
               end;
               EnableControls; //puede no ser necesario
          end;
          ComboBox1.ItemIndex:=1;

Y Yo lo implemente algo parecido a lo siguiente (No tengo en estos momentos Delphi a mano):

Código Delphi [-]
 
x:=0;
with TuTabla do
          begin
               DisableControls; //puede no ser necesario
               first;
               while not eof do
               begin
                    if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)=-1)then //en caso que existan registros iguales solo cargaría uno
                        begin
                           ComboBox1.Items.Add(FieldByName('Tipo').AsString);
                           A[x]:=FieldByName('Tipo').AsString;
                           inc(x);
                        end;
                    next;
               EnableControls; //puede no ser necesario
          end;
          ComboBox1.ItemIndex:=1;

Pero el problemita de este ejemplo para mi aplicación es que no requiero de un ComboBox en mi Formulario, es decir para nada me hace falta ese ComboBox, Yo solo trato de guardar esos datos en un array, ¿Cómo se puede hacer?

[[Lepe]]

Utiliza un TStringList para guardarlo, de hecho, la propiedad Items de un combo (TStrings) es el antecesor del TStringlist.

Busca en el foro o en la ayuda de delphi.

Saludos

[Deiv]

El código:

Código Delphi [-]
type
  MiArray = array[0..3] of string;
var
  i,j,x:  integer;
  A:MiArray;
  B: TStringList;
begin
  B:= TStringList.Create;
  x:=0;
  ........
  with ADOQuery1 do
    begin
       first;
       while not eof do
         begin
            if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
                begin
                  A[x]:= FieldByName('Tipo').Value;
                  inc(x);
                end;
            next;
         end;
    end;
...
end;

Me lanza error en la línea:
if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
Project raised exception class EAccess Violation

Imagino que es porque no está lleno el TStringList, es decir imagino que no use el método ADD, ¿alguna orientación, de cómo corregirlo?

[[eduarcol]]

Bueno yo no creo que es por lo lleno en caso de que no este lleno el error que te daria es index out of bound pero el acces violation es sobre un control que no esta creado en memoria, por los momentos no veo el error, seguro qe la copia es exacta del programa???

[Deiv]

Si es copia exacta,
Solo que tiene otras cosas más (.......) ya que el objetivo es capturar aquellos 4 elementos (Metal, No Metal, Anfótero y Gas Noble) para los Títulos de una Barra OutLook de TMS, he ahí que me interesa filtrar SIN REPETICIÓN y guardarlo en un ARRAY, para luego recuperarlo por código en dicha barra a manera de títulos.

[[eduarcol]]

No entiendo porq tantas cosas en el programa, yo lo haria con esta modificacion

Código Delphi [-]
type
  MiArray = array[0..3] of string;
var
  i,j,x:  integer;
  A:MiArray;
begin
  x:=0;
  ........
  with ADOQuery1 do
    begin
       first;
       while not eof do
         begin
            A[x]:= FieldByName('Tipo').Value;
            inc(x);
            next;
         end;
    end;
...
end;

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