Discussion :

[neuneu1]

bonjour,

j utilise un fichier ini pour conserver mes paramettre de sauvegarde.
source
destination
et le nom de la sauvegarde pour le titre de la sections.
je voulais faire apparaittre le le titre des section dans un treeview mais ca ne fonctionne pas sans avoir une procedure en amont
readsections(treeview.items) ne passe pas.

j en ai trouve une sur le net, mais celle ci affiche les section et non les sections(readsection et non readsections)
la procedure compte les occurence et les affiches en fonction d un paramettre section de type string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
rocedure TreeFromIni(Tree: TTreeView; INI: TIniFile; Section: string;
  Expand: Boolean);
var
  n: Integer;
  MS: TMemoryStream;
  tTv: TStringList;
  Msg: string;
begin
  tTv := TStringList.Create;
  MS  := TMemoryStream.Create;
  try
    INI.ReadSection(Section, tTv);
    for n := 0 to tTv.Count - 1 do
      tTv[n] := StringReplace(INI.ReadString(Section, tTv[n], ''), '#', #9,
        [rfReplaceAll]);
    tTv.SaveToStream(MS);
    MS.Position := 0;
    Tree.LoadFromStream(MS);
    if (Expand = True) and (Tree.Items.Count > 0) then
      Tree.Items[0].Expand(True);
  finally
    tTv.Free;
    MS.Free;
  end;

moi je ne veux que les nom des sections pricipal afin de les selectionner pour les supprimer.

readsections(memo.lines) fonctionnent mais je veux(pour le fun) mettre un icon devant chaque sections..
il y t il moyen de faire cela..

merci
a+

[BuzzLeclaire]

Salut

As-tu essayé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TreeFromIni(Tree: TTreeView; INI: TIniFile;
  Expand: Boolean);
var
  n: Integer;
  MS: TMemoryStream;
  tTv: TStringList;
  Msg: string;
begin
  tTv := TStringList.Create;
  MS  := TMemoryStream.Create;
  try
 
    INI.ReadSections(tTv);
 
    tTv.SaveToStream(MS);
    MS.Position := 0;
    Tree.LoadFromStream(MS);
    if (Expand = True) and (Tree.Items.Count > 0) then
      Tree.Items[0].Expand(True);
  finally
    tTv.Free;
    MS.Free;
  end;

[Andnotor]

La propriété Items du TTreeView est une liste de TTreeNode. Malgré un nom identique à celle du TMemo, elle ne contient pas de chaînes mais des objets et qui dit objet, dit création.

[neuneu1]

re,

merci BuzzLeclaire


ca marche