Discussion :

[Stéphane Vaillant]

Bonjour à tous,

Je sais comment récupérer une valeur de propriété de type string grâce à la fonction GetStrProp.

Voici la fonction que j'utilise et qui fonctionne très bien :

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
unit Sample;
 
interface
 
uses ..., TypInfo;
 
implementation
 
function Sample.GetStringPropertyValue(Component: TComponent; PropertyName: string): string;
var
  ppi: PPropInfo;
begin
  ppi := GetPropInfo(Component.ClassInfo, PropertyName);
  if ppi <> nil then
    Result := GetStrProp(Component, ppi)
  else
    Result := '';
end;

Mon problème est désormais de récupérer la valeur d'une propriété de type TStrings...

Quelqu'un sait-il comment procéder ?

[Invité]

Extrait de TypInfo.pas

function GetObjectProp(Instance: TObject; const PropName: string;
MinClass: TClass = nil): TObject; overload;
procedure SetObjectProp(Instance: TObject; const PropName: string;
Value: TObject); overload;
function GetObjectPropClass(Instance: TObject; const PropName: string): TClass; overload;

Je pense que cela doit faire l'affaire.

[Stéphane Vaillant]

Un rennais qui répond à un rennais, c'est bien sympathique...

La solution que tu donnes me paraît être la bonne, car j'avais mal considéré le problème et je n'avais pas traité cette propriété comme une classe... Je vais tester cela !

Merci pour ton aide.