Ako spravne pouzit value TList v TDictionary<string,TList>

[Stanislav Hruška]

Ešte jedna vec

Kód: Delphi [Vybrat]

1.   if sl.Count > 0 then
2.   begin
3.     for I := 0 to sl.Count - 1 do
4.       DictSyno.Add(sl[I], sl);
5.   end;

Tá podmienka je celkom zbytočná. Pri sl.Count = 0 bude for I := 0 to -1 do. Podmienka pre cyklus nie je nikdy splnená a kód sa nikdy nespustí.
Tiež som to tak robil

[František]

stanislav zabudol si na mtSynon.next; nakonci

Kód: Delphi [Vybrat]

1.    
2.     Item := TStringList.create();
3.     while not mtSynon.Eof do
4.     begin
5.       if (group <> Fsyno.AsInteger) or (mtSynon.RecordCount = mtSynon.RecNo) then
6.       begin
7.         if mtSynon.RecordCount = mtSynon.RecNo //pridame do SL posledny
8.             then Item.add(UpperCase(Fslovo.AsString));  
9.         for i := 0 to Item.Count - 1 do
10.         begin
11.             DictSynon.Add(Item[i],Item);          //tu sa naplna Dict, to znamena ze pri poslednom prechode by cyklus while skoncil a nezapisal by do dict
12.         end;
13.         Item := TStringList.create();
14.         group := Fsyno.AsInteger;
15.       end;
16.       Item.add(UpperCase(Fslovo.AsString));  //tu sa naplna SL
17.       mtSynon.next;
18.     end;

[Stanislav Hruška]

Daný kód je až za cyklom while. Takže Next s tým nemá nič spoločné.
Ten vo while som neanalyzoval.

[František]

ten kod za whiile som vyhodil tou podmienkou, ale ti si naplnal SL stale tou istou hodnotou, chybal ti tam next, lebo tam nema co robit,
cyklus robi to tnaledovne:

next naplna SL
ked pride ku zmene GR tak to zapise do dict a creatne novy SL
ale pri poslednom cykle nedoje uz v starom kode ku zapisu (lebo cyklus konci skor ako dojde ku zmene GR) a preto som to poriesil tou duplicitou, no na tvoj podnet som to upravil tak ako to je teraz