procedure TKotehanDialog.FormCreate(Sender: TObject);
var
- i: Integer;
- j: Integer;
+ i, j, k: Integer;
Category: TCategory;
Board: TBoard;
KoteData: TKotehanData;
begin
FList := TList.Create;
- 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;
end;
ViewComboBox.Items.Add('\82·\82×\82Ä\95\\8e¦');
ViewComboBox.Items.Add('\90Ý\92è\8dÏ\82Ì\82Ý\95\\8e¦');