Discussion :

[Pocus]

Bonjour,

J'ai un soucis

J'ai une classe TIntList, qui est une TStringList n'acceptant que des integers.

J'ai un propriété Path dans une autre classe:

Code :

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

    property Path            : TIntList read fPath write SetPath;

fPath étant une TIntList protected.

Code :

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

1
2
3
4
procedure TGroup.SetPath(Value : TIntList);
begin
  fPath.Text := Value.Text;
end;

Le problème:
SetPath n'est pas utilisé (pas de points bleus de compilation)!

La preuve... si je fais ceci:

Code :

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

    property Path            : TIntList read fPath;

Le programme tourne trés bien! Donc on peut se dire: bah fPath, on y a accés autrement, et c'est comme cela qu'on écrit dedans. Que neni, car si j'enlève la property, qui n'est donc plus qu'avec un Read, ca ne compile plus, il me dit (ce qui est logique): Path est inconnu.

Donc je ne comprend pas ... Quelqu'un peut m'expliquer?

Plus généralement, je veux pouvoir mettre en property Path, pour pouvoir intercepter en debugging toute modification qu'on y fait, et je n'y arrive pas! Moi pas futé

[ShaiLeTroll]

fait tu une affectation ? A mon avis non, donc pourquoi compiler du code inutile, la propriété n'étant pas publiée non plus ...

Code :

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

Group.Path := Truc

il ne faut pas confondre un Set qui intervient à l'affectation et la modification de la liste ...

[Pocus]

fait tu une affectation ? A mon avis non, donc pourquoi compiler du code inutile, la propriété n'étant pas publiée non plus ...

Code :

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

Group.Path := Truc

il ne faut pas confondre un Set qui intervient à l'affectation et la modification de la liste ...

Si cela m'arrive, faire une copie liste à liste via Group1.Path = Group2.Path

Bon, mais je fais surtout des Add de la liste. Comment faire pour avoir une property qui gère toute opération de modification de la dite liste? Je pensais que le Set allait les intercepter.

Reprenons du début, une stringlist, je veux la mettre en property de manière à pouvoir mettre un point d'arrêt pour suivre toute modification de son contenu, je fais comment?

[Reisubar]

Chez moi ceci marche :

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
type
  TFoo = class
  private
    FStrings: TStringList;
    function GetStringList: TStringList;
  public
    property Strings: TStringList read GetStringList;
    constructor Create();
    destructor Destroy; override;
  end;
 
{ TFoo }
 
constructor TFoo.Create;
begin
  inherited;
  FStrings := TStringList.Create;
end;
 
destructor TFoo.Destroy;
begin
  FStrings.Free;
  inherited;
end;
 
function TFoo.GetStringList: TStringList;
begin
  Result := FStrings;
end;
 
procedure TForm4.Button1Click(Sender: TObject);
var
  Z: TFoo;
begin
  Z := TFoo.Create;
  Z.Strings.Add('foo');
end;

L'appel de "Z.Strings.Add('foo');" appelle bien le breakpoint mis sur "TFoo.GetStringList". Ce code fonctionne t-il correctement dans ta configuration ?

[Pocus]

Grand merci Reisubar, cela fonctionne. Mon erreur était de penser que le Get n'allait pas servir à modifier la liste, mais si... Delphi avec le Get récupère le pointeur et manipule la liste avec (ajout, suppression), et je n'avais fait qu'un:

read fPath

donc le

write SetPath ne sert à rien dans ce cas. Disons que tu n'as besoin que d'une property avec Read pour tout faire dans le cas d'une propriété sur un objet. J'ai appris quelque chose!