Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   ¿Como llenar un listview con datos seleccionados de un DBlookuplistbox? (https://www.clubdelphi.com/foros/showthread.php?t=46832)

eduarcol 11-08-2007 01:36:54

Mirando el ejemplo de la ayuda de delphi, necesitas saber cuantas columnas estas trabajando

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  //Como es una prueba crea una data ficticia
  Names: array[0..5, 0..1] of string = (
    ('Rubble', 'Barney'),
    ('Michael', 'Johnson'),
    ('Bunny', 'Bugs'),
    ('Silver', 'HiHo'),
    ('Simpson', 'Bart'),
    ('Squirrel', 'Rocky')
    );

var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  //Crea la lista
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;
    Align := alClient;

    ViewStyle := vsReport;
    //Agrega las columnas
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Last';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'First';
    
    //Aqui lo que te interesa, rellena las columnas anteriormente creadas
    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[i][0];
      ListItem.SubItems.Add(Names[i][1]);
    end;
  end;
end;

Lo documente para que puedas entender mas facilmente

day_eli 11-08-2007 02:47:06

¿Como llenar un listview con datos seleccionados de un DBlookuplistbox?
 
Buen día...bueno creo que el titulo dice todo acerca de mi inquietud.
Esto es para utilizarlo en el llenado un listview con los articulos vendidos, en
un formulario de ventas.:confused:


La franja horaria es GMT +2. Ahora son las 05:13:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi