Discussion :

[mortapa]

bonjour,

j'ai vraiment du mal à expliquer se que je recherche à faire, alors voici un exemple.

un objet : hpat avec comme attribut (via property) : IGG

donc pour affecter une valeur je fais hpat.IGG:='valeur';

j'ai pas mal d'attribut à mon objet hpat

serai t'il possible de faire grace à une Tstringlist hliste un truc du genre
(hpat).hliste.value[txt]:='valeur'

ou txt serai mes attribut


je demande ça car je dois faire un if sur chaqu'un de mes attribut, et comme j'ai environ 50 attributs c'est pas type top d'avoir une succession de if ...

ducoup je voudrais mettre tout mes attribut dans une liste, faire une boucle sur le nombre d’occurrence de cette liste et faire le test l'attribut de mon objet patient via la liste.

oula :/ par écrit c'est tendu à expliquer

je suis avec delphi 5

[sjrd]

Mouais.

Tu pourrais simplement utiliser uniquement une THashedStringList, sans stocker la valeur de tes attributs autrement que dans la liste.

Si tu veux absolument stocker tes attributs avec des champs/propriétés, rends tes propriétés publiées, et utilise les RTTI.

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
interface
 
uses
  TypInfo;
 
type
  TAttributes = class(TObject)
  protected
    function GetAttributes(const Key: string): string; virtual; abstract;
    procedure SetAttributes(const Key, Value: string); virtual; abstract;
  public
    property Attributes[const Key: string]: string
      read GetAttributes write SetAttributes; default;
  end;
 
  TRTTIAttributes = class(TAttributes)
  private
    FContainer: TObject;
  protected
    function GetAttributes(const Key: string): string; override;
    procedure SetAttributes(const Key, Value: string); override;
 
    property Container: TObject read FContainer;
  public
    constructor Create(AContainer: TObject);
  end;
 
{$M+}
  TPat = class(TObject)
  private
    FAttributes: TAttributes;
 
    FIGG: string;
    // autres champs
  public
    constructor Create;
    destructor Destroy; override;
 
    property Attributes: TAttributes read FAttributes;
  published
    property IGG: string read FIGG write FIGG;
    // autres propriétés
  end;
{$M-}
 
implementation
 
function TRTTIAttributes.GetAttributes(const Key: string): string;
begin
  Result := GetStrProp(Container, Key);
end;
 
procedure TRTTIAttributes.SetAttributes(const Key, Value: string);
begin
  SetStrProp(Container, Key, Value);
end;
 
// l'implémentation des autres méthodes sus-mentionnées est triviale

Tu peux alors faire :

Code :

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

hpat.Attributes[txt] := 'valeur';

[mortapa]

THashedStringList n'existe pas lorsque je fais F1 en delphi (je suis en version 5)

je vais tester la méthode que tu me propose.
merci

[Paul TOTH]

et pourquoi pas une autre approche

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
 
type
  TAttribut =(aIGG, ..);
  TAttributs : array[TAttribut] of string;
 
  Thpat = class
  private
    FAttributs : TAttributs;
    function GetAttribut(Index: TAttribut): string;
  public
    procedure test;
    property IGG index aIGG read GetAttribut;
  end;
 
function Thpat.GetAttribut(Index: TAttribut): string;
begin
  Result := FAttributs[Index];
end;
 
procedure Thpat.test;
var
  a: TAttribut;
begin
  for a := Low(Tattribut) to High(TAttribut) do
   if FAttributs[a] = ...
end;