Seleccionar texto del dblookuplistbox

[Velia]

Hola
Necesito ayuda para manejar los items del dblookuplistbox, necesito seleccionar los items y recorrerlos desde 0 hasta dblookuplistbox.count-1, para agregarlos en otro objeto., por ejemplo en un dblistbox.

Gracias y Saludos
Velia

[roman]

Como generalmente ocurre con los controles enlazados a datos, lo que realmente importa no es el control en sí, sino el dataset que hay detras:

DBLookupListBox.ListSource.DataSet

y éste es el que recorres. Por ejemplo, el siguiente código copia los elementos que muestra el DBLookupListBox en un ListBox normal:

Código Delphi [-]
with DBLookupListBox1.ListSource.DataSet do
begin
  First;

  while not Eof do
  begin
    ListBox1.Items.Add(FieldByName(DBLookupListBox1.ListField).AsString);
    Next;
  end;
end;

Y, de la misma forma, no insertas elementos directamente en un DBListBox, sino en el dataset asociado, en este caso ListBox.DataSource.DataSet, y para ello tendrás que hacer operaciones Insert o Append sobre el dataset.

// Saludos