---

■スレッドリストへ戻る■ 全部 1- 最新50

モナプロ〜ラ〜

3 ：turbotypeD@monazilla.org ：2001/02/18(日) 11:01

インデント抜けたモナ。
unit Board2ch;interfaceuses
　Classes;type
　TNichNet = class;
　TNichCategory = class;
　TNichBoard = class;
　TNichThread = class;
　TNichResponse = class;　//2ch全体
　TNichNet = class
　private
　　FCategorys: TList;
　　FBoards: TList;
　　function GetCategorys(Index: Integer): TNichCategory;
　　function GetBoards(Index: Integer): TNichBoard;
　public
　　constructor Create;
　　destructor Destroy; override;
　　property Categorys[Index: Integer]: TNichCategory read GetCategorys;
　　procedure AddCategory(Category: TNichCategory);
　　property Boards[Index: Integer]: TNichBoard read GetBoards;
　　procedure AddBoard(Board: TNichBoard);
　end;　//2chのカテゴリー
　TNichCategory = class
　private
　　FTitle: String;
　　FBoardItems: TList;
　　function GetBoardItems(Index: Integer): TNichBoard;
　public
　　constructor Create;
　　destructor Destroy; override;
　　property Title: String read FTitle write FTitle;
　　property BoardItems[Index: Integer]: TNichBoard read GetBoardItems;
　　procedure AddBoard(Board: TNichBoard);
　end;　//2chのボード
　TNichBoard = class
　private
　　FTitle: String; //日本語名(ユニーク)
　　FName: String;　//英語名(バイク板やマック板がありユニークではない)
　　FURL: String;　 //(ユニーク)
　　FThreads: TList;
　　FOwnerCategory: TNichCategory;
　　function GetCategory: TNichCategory;
　　function GetThreads(Index: Integer): TNichThread;
　public
　　constructor Create;
　　destructor Destroy; override;
　　property Title: String read FTitle write FTitle;
　　property Name: String read FName write FName;
　　property URL: String read FURL write FURL;
　　property Category: TNichCategory read GetCategory;
　　property Threads[Index: Integer]: TNichThread read GetThreads;
　end;　//2chのスレッド
　TNichThread = class
　private
　　FTitle: String;
　　FNumber: Integer;
　　FFavorite: Boolean;
　　FOwnerBoard: TNichBoard;
　　FResponses: TList;
　　function GetResponses(Index: Integer): TNichResponse;
　　function GetBoard: TNichBoard;
　public
　　property Title: String read FTitle write FTitle;
　　property Number: Integer read FNumber write FNumber;
　　property Board: TNichBoard read GetBoard;
　　property Responses[Index: Integer]: TNichResponse read GetResponses;
　end;　//2chのレス
　TNichResponse = class
　private
　　FNo: Integer;
　　FEmail: String;
　　FDateTime: TDateTime;
　　FText: String;
　public
　　property No: Integer read FNo write FNo;
　　property Email: String read FEmail write FEmail;
　　property DateTime: TDateTime read FDateTime write FDateTime;
　　property Text: String read FText write FText;
　end;var
　NiChannel: TNichNet;

34KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30