Remplir ListViewRésolu

Question

Salut !

Comment remplir une TListView ?

Merci d'avance.

kabakas

cs_kaboum · Accepted Answer

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;

Francky23012301 · Answer

Il dit quoi le règlement ? on cherche avant de poster 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.

Francky23012301 · Answer

Pardon, erreur de renommage

procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
aListItem:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;

cs_kabakas · Answer

Merci Francky,
Ma ListeView contient déjà 4 colones, et je veux la remplir à partir d'une table Access !
Comment faire ?

merci encore !

kabakas

cs_cantador · Answer

Tu fais une boucle sur ta table access (en utilisant ADO)
et à chaque tour tu utilises le code de Francky.

cantador

cs_kabakas · Answer

salut,
mais ça remplit que la 1ère colone, et ma listview a 4 colones !!!
comment faire ?

merci cantador, francky

kabakas

cs_cantador · Answer

ben oui, mais il faudrait déjà que tu poses correctement le problème..
Comment gères-tu  le remplissage ?
Tout dans la première colonne ou le tiers ?
et le reste etc..?
après on y verra plus clair..

cantador

cs_kabakas · Answer

c'est bien gentil de votre part, kaboum
merci

kabakas

hainlesgens · Answer

et quelqu'un sais comment remplir un listview a partir des valeur d'une base de donnée access???

AlexFr23 · Answer

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 :
 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

Remplir ListView

10 réponses

Votre réponse

sur les mêmes thèmes