Remplir ListView [Résolu]
cs_kabakas
Membre Dernière intervention
7 mai 2011
- - Dernière réponse :
AlexFr23
Membre Dernière intervention
4 décembre 2010
- 4 déc. 2010 à 18:40
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Statut
A voir également:
- Delphi listview
- Listview delphi - Meilleures réponses
- Tlistview delphi - Meilleures réponses
- Delphi / Pascal : Drag 'n' drop de l'explorateur vers une listview - CodeS SourceS - Guide
- Delphi / Pascal : Mettre des progressbar dans une listview - CodeS SourceS - Guide
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
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
137 internautes nous ont dit merci ce mois-ci
- Messages postés
- 32
- Date d'inscription
- jeudi 2 janvier 2003
- Statut
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
137 internautes nous ont dit merci ce mois-ci
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
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
- Statut
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Statut
- Messages postés
- 58
- Date d'inscription
- dimanche 24 décembre 2000
- Statut
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Statut
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.