Discussion :

[petitprince]

Bonjour à tous!
Comment puis-je récupérer les infos sur les classes TBitmap,TStrings par l'intermédiaire des RTTI?
Tout marche impec sur des composants, ou sur des classes que je crée moi-même, mais pas sur les classes de delphi...
Voici ce que je fais: Ex avec un TPanel

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 TForm1.Button1Click(Sender: TObject);
var
 PData   : PTypeData;
 PListe  : PPropList;
 NbProps,
 I       : Integer;
begin
  PData := GetTypeData(PTypeInfo(TPanel.ClassInfo));
  NbProps := PData^.PropCount;
  New(PListe);
  GetPropInfos(PTypeInfo(TPanel.ClassInfo), PListe);
 
  with ListBox1 do
  begin
    Clear;
    for I := 0 to NbProps - 1 do
      Items.Add(PListe^[I]^.Name);
  end;
 
  Dispose(PListe);
 
 
end;

Voila...
Merci!

[ShaiLeTroll]

un TStrings hérite de TPersistent mais il n'a AUCUNE propriété publiée donc cela ne sert à rien, il implémente par contre DefineProperties qui lui permet de simuler la gestion des flux ...

Un TBitmap hérite de TPersitent, tu dois donc pouvoir énumérer ses propriétés mais comme la TStrings, pas de Published, ... mais hérite de DefineProperties de TGraphic ...

Au final, pas de published donc le RTTI fonctionne mais ne renvoit aucune propriété !

[petitprince]

Ok, ça ne renvoyait rien en effet, mais alors comment faire ?

[ShaiLeTroll]

J'ignore ton besoin, mais tu peux soit faire des classes qui hérite d'un TBitmap ou d'une TStringList (partir de la TStrings serait plus complexe), et publiée les propriétés que tu veux accéder en RTTI ... ou sinon programmer plus simplement, et remplir/lire "à la main"

Code :

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

1
2
3
MonObjet.Property1 := ...;
MonObjet.Property2 := ...;
MonObjet.Property3 := ...;

Code :

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

1
2
3
... := MonObjet.Property1;
... := MonObjet.Property2;
... := MonObjet.Property3;

[petitprince]

Mon but est de faire un EDI en delphi avec SynEdit, pour que lorsque j'écrit par exemple "Memo1.", après le point, j'ai toute la liste de se qui va après, c-à-d toutes les propriétés de la classe Memo...
Voilà...
Mais je ne comprend pas trop ta méthode...
En tout cas merci !

[ShaiLeTroll]

tu veux faire un EDI ? SynEdit c'est pour Web ? Bon Passons, ...

j'ignorais ton besoin, donc je ne pouvais pas proposer de solution adéquate, donc si tu veux quelques choses de Dynamiques, tu ne peux pas utiliser ma proposition de manipuler les variables à la main ...

Pour le TStrings et le TBitmpa, tu dois publier les propriétés, comme la TForm publie les propriétés de la TCustomForm, ...

[petitprince]

Sui je comprend bien je dois me retaper tout le boulot à la main ?
Bon ben y a plus qu'à....
Sinon Syn Edit c'est pas que pour le web..... Jette un coup d'oeil à cette librairie...
Merci à plus

P.S. je considère le sujet comme résolut, mais si il y a d'autre propositions, je suis preneur...

[sjrd]

Pour la complétion de Memo1. ça n'utilise pas les RTTI. Ca n'a rien à voir. Ca utilise le compilateur, qui compile en temps réel tes unités pour connaître les champs de chaque type.

En plus il connaît beaucoup plus d'informations que ne peuvent te donner les RTTI.

Bref oublie les RTTI pour ce que tu veux faire.

[petitprince]

Comment faire alors? Tu dis que ca compile en temps réel, je veu bien utiliser le compilateur DCC32, mais comment récupérer ces infos alors, pour une utilisation avec SynEdit?

[sjrd]

Tu dois compiler avec ton propre compilateur. DCC32 ne te livrera pas ses infos de compilation.

[petitprince]

Sauf que mon compilateur c'est DCC32 et que je recompile des projets delphi, je refais donc une portion de l'EDi pour me faire un concepteur de composant à la delphi...
D'ailleur, en publiant des propriétés dans la classe TBitmap, j'arrive bien à les obtenir par RTTI