Discussion :

[Charly910]

Bonjour,
je veux créer un Memo temporaire grâce à une fonction :

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
{ ===================================================================== }
Function TF_Princ.ExportTreeView(ATreeView: TTreeView; Filename : String): Boolean ;
Var
  i: Integer ;
  ANode : TTreeNode ;
  Tabulation : String ;
  Memo   : TMemo ;
Begin
  Result := False ;
  Memo := TMemo.Create(Self) ;
  Try
    Memo.Parent := Self ;
    for i:=0 to ATreeView.Items.Count-1 do
      Begin
        ANode := ATreeView.Items[i] ;
        Tabulation := StringOfChar(Chr(9), ANode.Level) ;
        Memo.Lines.Add(Tabulation+ATreeView.Items[i].Text) ;
      End ;
    Memo.Lines.SaveToFile(Filename) ;
    Result := True ;
  Finally
    Memo.Free ;
  End ;
End;
{ ===================================================================== }

J'ai mis Self dans le Create et dans le Parent. ça fonctionne, mais est ce correct ? et que représente Self dans ce cas ?


Merci de vos lumières
A+
Charly

[exoseven]

ton memo est inutile dans ton code, utilise simplement une TStringList, le self est la fiche TF_Princ

[Andnotor]

ATreeView.SaveToFile(Filename);

[ShaiLeTroll]

Comme c'est pour D7, je peux proposer ce vieux code : Gestion complète d'une TreeView: ajout de noeuds, records et sauvegarde du tout

ATreeView.SaveToFile fonctionne très bien, attention à ATreeView.LoaFromFile ... cela ne protège pas contre un noeud qui contient un text avec un espace\tab au début faussant la profondeur.

[Charly910]

Merci à tous,

effectivement je n'avais pas pense à la TStringList !!

le SaveToFile du TTreeView fait le même travail, mais je ne peut pas personnaliser le fichier

A+
Charly

[Paul TOTH]

J'ai mis Self dans le Create et dans le Parent. ça fonctionne, mais est ce correct ? et que représente Self dans ce cas ?

http://tothpaul.free.fr/tips.php?pv_class

Un point d'Owner:

la valeur de Owner peut prendre quelques valeurs remarquables :
Application, c'est l'objet de plus haut niveau d'une application Delphi, en créant un composant dont le propriétaire est "application", vous vous assurez qu'il sera détruit en quittant votre programme (fin de l'application).

Form1, ou tout autre composant de type TForm, sur une application contenant différentes fenêtres, vous vous assurez de la destruction du composant à la fermeture de la fenêtre à qui vous attribuer le composant.

SELF, ce paramètre parfois mal compris indique tout simplement que l'objet créé depuis une méthode objet aura pour propriétaire l'objet à qui appartient la méthode en cours ! Revoir l'explication de SELF dans le chapitre Object

nil, il est tout à fait valide d'indiquer que le composant ne possède pas de propriétaire (nil = 0), mais il vous appartiendra alors de le détruire en temps util, personne ne le fera à votre place.

http://tothpaul.free.fr/tips.php?pv_object

le seul fait de déclarer des procédures ou fonction (appelées méthodes) à l'intérieur de l'objet ajoute automatiquement à celles-ci un paramètre nommé SELF qui pointe sur l'objet lui même.

[ShaiLeTroll]

Et encore plus subtil, dans une méthode de Classe, Self c'est la classe, utile pour écrire un code pour un dialogue ultra minimaliste

Code :

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

1
2
3
4
5
6
7
8
9
class function TFormMachin.Execute(): Boolean;
begin
  with Self.Create() do // Self n'est pas une instance TFormMachin mais directement la classe TFormMachin (un peu comme si Self était une variable de type "Class of TFormMachin")
  try
    Result := ShowModal() = mrOK;
  finally
    Free();
  end;
end;

[ShaiLeTroll]

Merci à tous,

effectivement je n'avais pas pense à la TStringList !!

le SaveToFile du TTreeView fait le même travail, mais je ne peut pas personnaliser le fichier

A+
Charly

As-tu regardé le code que j'ai fourni ?
Il est vieux mais tu peux sauvegarder et charger ton TTreeView y compris les Data (si tu fais les méthodes de sérialisation adapté, je n'ai jamais pris le temps de faire un truc générique en RTTI)

[wheel]

Code :

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

1
2
3
4
5
6
7
  TDataNode = record
    S: String;
    FontColor: String;
    I: Integer;
    Index: Integer;
    SelIndex: Integer;
  end;

il est possible de mettre ce code dans un nouveau type descendant de TTreeNode qui sera utilisé par défaut par la TreeView pour les éléments de la liste

Code :

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

1
2
3
4
5
6
7
8
  TNewNode=class(TTreeNode)
  public
    S: String;
    FontColor: String;
    I: Integer;
    Index: Integer;
    SelIndex: Integer;
  end;

dans l'événement OnCreateNodeClass on demande la création des instances de ce type

Code :

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

 NodeClass := TNewNode

[Charly910]

Merci Paul, j'avais déjà lu ton post sur le Aowner. Effectivement le create(Nil) fonctionne bien.

Merci Shai, j'ai regardé ton code, mais mon cas est tout bête, je n'ai pas de datas dans mon TreeView (je vais quand même tester)

Merci Andnotor, le savetofile du TTreeView marche bien et indente les noeuds

Merci ExoSeven pour le TStringList (c'est la solution que je conserve, car je peux faire ce que je veux dans le fichier txt, rajouter des lignes, ...)

Merci Wheel, même si je n'ai pas compris l'intérêt de TNewNode dans mon cas

Merci à tous pour vos explications sur Self.

A+
Charly