Ver Mensaje Individual
  #1  
Antiguo 05-10-2007
Avatar de eddg
eddg eddg is offline
Miembro
 
Registrado: ago 2007
Ubicación: Maracay, Edo Aragua, Venezuela
Posts: 75
Reputación: 19
eddg Va por buen camino
Question Desde un DBGrid a un ListBox

Buenos Días ante todo...
Mi problemita es el siguiente:
En la ayuda de Delphi (F1), sale este Código de ejemplo:

============================================
Código Delphi [-]
procedure Tcomponentes.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

============================================

Ese código sirve para Insertar una Fila seleccionada de un DBGrid en un LIST BOX, excelente, sin embargo, Yo necesito Agregar sólo una Columna de esa FILA

Es decir, en la Fila tengo, Nombre, Telefono y e-mail, Pero sólo quiero agregar al ListBox es el Nombre, y tener guardado en alguna parte el telefono para usarlo en otro Objeto....

¿como hago para solo agregar un campo de la Fila?

Muchas Gracias de antemano a quien pueda ayudarme con este problemita!

Última edición por jhonny fecha: 05-10-2007 a las 16:13:41. Razón: Colocar etiquetas DELPHI
Responder Con Cita