Remplir ListView [Résolu]
cs_kabakas
- 4 déc. 2010 à 18:40
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Dernière intervention
- 4 décembre 2010
A voir également:
- Tlistview delphi
- Delphi listview - Meilleures réponses
- Listview delphi - Meilleures réponses
- Remplir listview en mode detail ✓ - Forum - VB.NET
- Remplir listview a partir d'un datareader ✓ - Forum - VB.NET
- Comment remplir une listview (sans images et sans entete) ✓ - Forum - Visual Basic 6
- Visual Basic : Remplir une listview - Guide
- Remplir 2e colonne listview ✓ - Forum - C / C++ / C++.NET
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;
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 88 internautes ce mois-ci
Meilleure réponse
- Messages postés
- 32
- Date d'inscription
- jeudi 2 janvier 2003
- 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;
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 88 internautes ce mois-ci
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- 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
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
- Messages postés
- 58
- Date d'inscription
- dimanche 24 décembre 2000
- Dernière intervention
- 10 février 2009
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- 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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.