Record v TDictionary - neprejaví sa zmena hodnoty

[Stanislav Hruška]

NodeFilter.FilteredByGroup má vždy hodnotu False. Na False to nikde nenastavujem. Neviem si s tým rady. Ja chybu nevidím.

Kód: Delphi [Vybrat]

1.   TNodeFilter = record
2.     Node: PVirtualNode;
3.     FilteredByGroup: Boolean;
4.     FilteredByCountry: Boolean;
5.   end;
6. //  V triede
7.   FMembers: TDictionary<Integer, TNodeFilter>;
8. .
9.   if FFreeMember.Members.TryGetValue(GroupData.PKeys[1], NodeFilter) then
10.   begin
11.     FFreeMember.Vst.IsFiltered[NodeFilter.Node] := True;
12.     NodeFilter.FilteredByGroup := True;  //  Toto mi zbehne, ale neprejaví sa to
13.   end;

Zmenil som to na triedu a funguje to.
Čo mi chýba vo vedomostiach?

[Morrison]

Je to record, takže ti ho metoda TryGetValue předává hodnotou (vytvoří kopii a ty pak nastavuješ FilteredByGroup jenom té kopii, která se stejně po opuštění bloku zahodí). Třída je předávána odkazem (reference), takže v tom případě pak nastavuješ opravdu ten objekt, který tě zajímá. Dalo by se toho dosáhnout i s recordem, ale TryGetValue by ti musela dávat bud "var TNodeFilter" nebo "[Ref] TNodeFilter" nebo ^TNodeFilter.

[Stanislav Hruška]

Ja som tušil, že to je len moja nevedomosť. Opäť som o kúsok múdrejší.
Ďakujem.

[František]

stacilo po uprave pridat

Kód: Delphi [Vybrat]

1. FFreeMember.Members.AddOrSetValue(...

[Stanislav Hruška]

Ďakujem. Pozriem sa na to. Uvidím či to prerobím.