- for i := 0 to BBS2ch.Count - 1 do begin
- Category := BBS2ch.Items[i];
- for j := 0 to Category.Count - 1 do begin
- Board := Category.Items[j];
- KoteData := TKotehanData.Create;
- KoteData.FBoard := Board;
- KoteData.FKotehanName := Board.KotehanName;
- KoteData.FKotehanMail := Board.KotehanMail;
- FList.Add(KoteData);
- end;
+ for k := 0 to Length( BBSs ) - 1 do begin
+ for i := 0 to BBSs[ k ].Count - 1 do begin
+ Category := BBSs[ k ].Items[i];
+ for j := 0 to Category.Count - 1 do begin
+ Board := Category.Items[j];
+ KoteData := TKotehanData.Create;
+ KoteData.FBoard := Board;
+ KoteData.FKotehanName := Board.KotehanName;
+ KoteData.FKotehanMail := Board.KotehanMail;
+ FList.Add(KoteData);
+ end;
+ end;