Encontré este
ejemplo en el Foro de
Ruben_Cu:
Código Delphi
[-]
with TuTabla do
begin
DisableControls; first;
while not eof do
begin
if (ComboBox1.Items.IndexOf(FieldByName('Idiomas').AsString)=-1)then ComboBox1.Items.Add(FieldByName('Idiomas').AsString);
next;
end;
EnableControls; 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; first;
while not eof do
begin
if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)=-1)then begin
ComboBox1.Items.Add(FieldByName('Tipo').AsString);
A[x]:=FieldByName('Tipo').AsString;
inc(x);
end;
next;
EnableControls; 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?