Remplir ListView [Résolu]
cs_kabakas
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Membre
- Dernière intervention
- 7 mai 2011
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Statut
- Membre
- Dernière intervention
- 4 décembre 2010
A voir également:
- Delphi listview
- Listview delphi - Meilleures réponses
- Tlistview delphi - Meilleures réponses
- Delphi listview add item - Forum - Delphi / Pascal
- Delphi listview checkbox - Forum - Delphi / Pascal
- Recherche dans Listview ✓ - Forum - Delphi / Pascal
- Delphi listview select item - Forum - Delphi / Pascal
- Delphi / Pascal : Drag 'n' drop de l'explorateur vers une listview - CodeS SourceS - Guide
10 réponses
Meilleure réponse
Pardon, erreur de renommage
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
aListItem:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
aListItem:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
202 internautes nous ont dit merci ce mois-ci
- Messages postés
- 31
- Date d'inscription
- jeudi 2 janvier 2003
- Statut
- Membre
- Dernière intervention
- 8 juillet 2010
salut voici un petit exemple
pour plusieurs colonnes dans une listeview
var
liste : TListItems;
i : integer;
begin
liste := ListView1.Items;
for i := 0 to 3 do
begin
liste.Add;
liste.Item[i].Caption := 'test ' + IntToStr(i);
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
end;
pour plusieurs colonnes dans une listeview
var
liste : TListItems;
i : integer;
begin
liste := ListView1.Items;
for i := 0 to 3 do
begin
liste.Add;
liste.Item[i].Caption := 'test ' + IntToStr(i);
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
202 internautes nous ont dit merci ce mois-ci
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Membre
- Dernière intervention
- 7 mai 2011
Il dit quoi le règlement ? on cherche avant de poster</italique>
En tapant dans google : Delphi+ListView on tombe la dessus : http://cc.borland.com/Item/13329
Ce qui donne ceci par exemple :
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
a:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
Si tout le monde pose une question sans prendre le temps de chercher, on est pas sortie de l'auberge.
En tapant dans google : Delphi+ListView on tombe la dessus : http://cc.borland.com/Item/13329
Ce qui donne ceci par exemple :
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
a:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
Si tout le monde pose une question sans prendre le temps de chercher, on est pas sortie de l'auberge.
- Messages postés
- 4716
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Membre
- Dernière intervention
- 7 mai 2011
- Messages postés
- 4716
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Membre
- Dernière intervention
- 7 mai 2011
- Messages postés
- 58
- Date d'inscription
- dimanche 24 décembre 2000
- Statut
- Membre
- Dernière intervention
- 10 février 2009
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Statut
- Membre
- Dernière intervention
- 4 décembre 2010
Bonjour,
En Cherchant une soluce pour mon problème, j'ai lu votre demande qui date un peu mais bon çà pourra peut être aider quelqu'un...
Voilà pour remplis une liste avec une BD :
Cordialement
Alex
En Cherchant une soluce pour mon problème, j'ai lu votre demande qui date un peu mais bon çà pourra peut être aider quelqu'un...
Voilà pour remplis une liste avec une BD :
while not QAccessData.Eof do
begin
list1:=ListView1.Items.Add;
list1.Caption:=QAccessData.FieldByName('nom').Text+', '+QAccessData.FieldByName('prenom').Text;
list1.SubItems.Add(QAccessData.FieldByName('mail').Text);
DataPTX.QAdresseC.Next;
end;
Cordialement
Alex