Discussion :

[philnext]

Je suis en D7 et j'ai besoin de modifier la valeur d'une propriété d'un objet.
J'utilise donc le RTTI mais étrangement quand je vais lire une propriété je la trouve bien mais le IsPublishedProp renvoie toujours False.
Exemple (voir la ligne 55 IsPublishedProp) de mon code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
unit Unit1;
interface
uses
  Classes, Controls, Forms,
  StdCtrls,TypInfo;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    FsTest: string;
    procedure SetsTest(const Value: string);
    { Déclarations privées }
  public
    { Déclarations publiques }
  published
    property sTest: string  read FsTest write SetsTest;
  end;
 
 TOClient = class(TObject)
  private
    FCL_ABOID: integer;
    procedure SetCL_ABOID(const Value: integer);
     { Déclarations privées }
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
  published
 
    property CL_ABOID: integer  read FCL_ABOID write SetCL_ABOID;
  end;
var
  Form1: TForm1;
  OCl : TOClient;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var iBcl,iNb : Integer;
  ListeProprietes: TPropList;
  sNameTemp : string;
  DonneePropriete: TPropInfo;
 
begin
  OCL := TOClient.Create;
  iNb := GetPropList(TypeInfo(TOClient), tkAny, @ListeProprietes);
  for iBcl := 0 to iNb-1 do
  begin
    DonneePropriete := ListeProprietes[iBcl]^;
    sNameTemp := DonneePropriete.Name;
    if Pos('CL_ABOID',sNameTemp)>0 then
      if IsPublishedProp(OCL,sNameTemp) then
        SetOrdProp(OCL,sNameTemp,Longint(0)) ;
  end;
end;
 
procedure TForm1.SetsTest(const Value: string);
begin
  FsTest := Value;
end;
{ TOClient }
procedure TOClient.SetCL_ABOID(const Value: integer);
begin
  FCL_ABOID := Value;
end;
end.

Une idée ??

[Rayek]

Est ce que la liste ne te renverrait pas la liste des propriétés avec des trucs en plus ?
Est ce que dans sNameTemp tu as bien seulement CL_ABOID ?

As tu testé en mettant directement CL_ABOID dans IsPublishedProp ?

[philnext]

@Rayek
Merci pour ta réponse.
A priori ma liste renvoie bien la bonne valeur.
J'ai seulement CL_ABOID dans sNameTemp et j'ai testé (sans plus de succès !) en mettant 'CL_ABOID' en 'dur' dans IsPublishedProp.
Ce qui est étonnant c'est que pour un autre objet (par exemple Form1 dans mon exemple) ça fonctionne bien...
J'ai l'impression que je passe à côté d'un truc mais..lequel ?

[sjrd]

En effet, tu passes à coté d'un truc. Mais faut le savoir, donc tu es pardonné

En fait, le compilateur Delphi ne stocke pas les RTTI complètes pour toutes les classes. Historiquement, c'est une question de ne pas surcharger l'exécutable. Aujourd'hui, je n'en vois plus l'intérêt, mais bon, je ne suis pas développeur du compilateur Delphi non plus

Pour qu'une classe ait ses RTTI complètes, il faut qu'elle ait été déclarée sous la directive de compilation {$M+}, ou être descendante d'une classe qui l'a été. Typiquement, seule la classe TPersistent est déclarée sous cette directive. On dit donc souvent (à presque raison) que seules les classes descendant de TPersistent ont des RTTI complètes.

Donc tu as deux solutions. Soit tu fais hériter TOClient de TPersistent :

Code :

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

1
2
3
4
type
  TOClient = class(TPersistent)
    ...
  end;

Soit tu l'entoures de {$M+} et {$M-} :

Code :

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

1
2
3
4
5
6
7
8
{$M+}
 
type
  TOClient = class(TObject)
    ...
  end;
 
{$M-}

[philnext]

Merci Sjrd !!
ça marche maintenant !
Pourtant j'avais cherché avant de poster.