Comme cela s'il y a plusieurs TCheckListBox, seule la première est enregistrée ...
Et dire que les programmateurs de chez borland s'efforcent d'encapsuler les APIs Windows dans des classes et que j'en voit qui s'amusent à les dé-encapsuler.
Franchement, c'est pas plus simple de faire cela directement à partir de la classe TIniFile plutot que de créer des méthodes qui reprennent celle du TIniFile ?
Si tu trouves que le TIniFile manque de possibilités alors crée un TExtIniFile qui hérite de TIniFile.
Florent
elguevel
Messages postés718Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention22 novembre 20163 2 sept. 2005 à 13:09
Tient puis en reregardant ce code j'vient de vois une erreur ou plutot un oublie, faut remplacer par çà :
{ Enregistre TCheckList }
procedure EnregistreCheckListe( Liste : TCheckListBox );
var
i : Integer;
begin
InitFile.EraseSection('CHECKLIST');
for i := 0 to (Liste.Items.Count - 1) do
begin
InitFile.WriteString( 'CHECKLIST', Liste.Items.Strings[i], BoolToStr( Liste.Checked[i], True) );
end;
end;
Damien
elguevel
Messages postés718Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention22 novembre 20163 2 sept. 2005 à 11:29
C'est histoire de poster c'est tout :-) lol
PS : Puis comme çà ceux qui posent 10 000 fois la meme question ont une unité toute faite.
Damien
kanuxxx
Messages postés11Date d'inscriptionlundi 8 novembre 2004StatutMembreDernière intervention 3 septembre 2005 1 sept. 2005 à 22:41
2 sept. 2005 à 22:53
2 sept. 2005 à 20:56
Et dire que les programmateurs de chez borland s'efforcent d'encapsuler les APIs Windows dans des classes et que j'en voit qui s'amusent à les dé-encapsuler.
Franchement, c'est pas plus simple de faire cela directement à partir de la classe TIniFile plutot que de créer des méthodes qui reprennent celle du TIniFile ?
Si tu trouves que le TIniFile manque de possibilités alors crée un TExtIniFile qui hérite de TIniFile.
Florent
2 sept. 2005 à 13:09
{ Enregistre TCheckList }
procedure EnregistreCheckListe( Liste : TCheckListBox );
var
i : Integer;
begin
InitFile.EraseSection('CHECKLIST');
for i := 0 to (Liste.Items.Count - 1) do
begin
InitFile.WriteString( 'CHECKLIST', Liste.Items.Strings[i], BoolToStr( Liste.Checked[i], True) );
end;
end;
Damien
2 sept. 2005 à 11:29
PS : Puis comme çà ceux qui posent 10 000 fois la meme question ont une unité toute faite.
Damien
1 sept. 2005 à 22:41
http://delphi.developpez.com/faq/?page=fichiersini
1 sept. 2005 à 21:51