Discussion :

[eponette]

Salut à tous,

j'ai trouvé ce bout de code, et je ne suis pas 100% sur de sa signification (et le F1 me donne pas de réponse convenable pour cela car Assigned pointe vers les interface et assign vers les fonctions de base I/O...)

procedure TCustomNomenclature.SetTables(const Value: TStrings);
begin
if Assigned(FTables) then
FTables.Assign(Value)
else
FTables := Value;
end;

Quelqu'un peut-il me donner son interprétation de cela?

Merci

[Manopower]

Assign()

fait l'action d'assigner un pointeur à une variable

Assigned

est une fonction qui renvoie false si la variable = NIL, true dans tous les autres cas.

[eponette]

Assign()

fait l'action d'assigner un pointeur à une variable

Mais pour cela, il faut que l'objet existe déjà, non?

Assigned

est une fonction qui renvoie false si la variable = NIL, true dans tous les autres cas.

Donc, c'est juste un moyen de vérifier si l'objet existe.

Je ne vois pas l'intérêt de ce bout de code. Car il faut de toute façon créer l'objet (TStrings ici) avant.

Et quelle est la différence entre FTables := Value et FTables.Assign(Value)?

[cpdump]

Assign fait généralement une recopie d'objet, pas du pointeur, c'est d'ailleurs pour cela qu'il y a un test pour voir si l'objet existe avant.