| 15 |
{HttpApp,} URLMon, IdGlobal, IdURI, {Masks,} |
{HttpApp,} URLMon, IdGlobal, IdURI, {Masks,} |
| 16 |
Setting, BoardGroup, gzip, Dolib, bmRegExp, AbonUnit, |
Setting, BoardGroup, gzip, Dolib, bmRegExp, AbonUnit, |
| 17 |
ExternalBoardManager, ExternalBoardPlugInMain, |
ExternalBoardManager, ExternalBoardPlugInMain, |
| 18 |
GikoBayesian, GikoMessage; |
GikoBayesian, GikoMessage, Belib; |
| 19 |
|
|
| 20 |
type |
type |
| 21 |
TVerResourceKey = ( |
TVerResourceKey = ( |
| 112 |
FBayesian : TGikoBayesian; //!< ベイジアンフィルタ |
FBayesian : TGikoBayesian; //!< ベイジアンフィルタ |
| 113 |
FVersion : String; //!< ファイルバージョン |
FVersion : String; //!< ファイルバージョン |
| 114 |
FGikoMessage: TGikoMessage; |
FGikoMessage: TGikoMessage; |
| 115 |
|
FBelib: TBelib; |
| 116 |
//! あるセパレータで区切られた文字列からn番目の文字列を取り出す |
//! あるセパレータで区切られた文字列からn番目の文字列を取り出す |
| 117 |
function ChooseString(const Text, Separator: string; Index: integer): string; |
function ChooseString(const Text, Separator: string; Index: integer): string; |
| 118 |
//! 一時ファイルからの復旧 |
//! 一時ファイルからの復旧 |
| 166 |
function DivideSubject(Line: string): TSubjectRec; |
function DivideSubject(Line: string): TSubjectRec; |
| 167 |
property Setting: TSetting read FSetting write FSetting; |
property Setting: TSetting read FSetting write FSetting; |
| 168 |
property Dolib: TDolib read FDolib write FDolib; |
property Dolib: TDolib read FDolib write FDolib; |
| 169 |
|
property Belib: TBelib read FBelib write FBelib; |
| 170 |
|
|
| 171 |
function UrlToID(url: string): string; |
function UrlToID(url: string): string; |
| 172 |
function UrlToServer(url: string): string; |
function UrlToServer(url: string): string; |
| 319 |
Inherited; |
Inherited; |
| 320 |
FSetting := TSetting.Create; |
FSetting := TSetting.Create; |
| 321 |
FDolib := TDolib.Create; |
FDolib := TDolib.Create; |
| 322 |
|
FBelib := TBelib.Create; |
| 323 |
FAWKStr := TAWKStr.Create(nil); |
FAWKStr := TAWKStr.Create(nil); |
| 324 |
if DirectoryExists(GetConfigDir) = false then begin |
if DirectoryExists(GetConfigDir) = false then begin |
| 325 |
CreateDir(GetConfigDir); |
CreateDir(GetConfigDir); |
| 373 |
FreeAndNil(FSelectResFilter); |
FreeAndNil(FSelectResFilter); |
| 374 |
FreeAndNil(FAbon); |
FreeAndNil(FAbon); |
| 375 |
FreeAndNil(FAWKStr); |
FreeAndNil(FAWKStr); |
| 376 |
|
FreeAndNil(FBelib); |
| 377 |
FreeAndNil(FDolib); |
FreeAndNil(FDolib); |
| 378 |
FreeAndNil(FSetting); |
FreeAndNil(FSetting); |
| 379 |
inherited; |
inherited; |