Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.257 by h677, Sun Feb 20 06:47:14 2011 UTC revision 1.258 by h677, Tue Feb 22 13:37:51 2011 UTC
# Line 15  uses Line 15  uses
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 = (
# Line 112  type Line 112  type
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          //! 一時ファイルからの復旧          //! 一時ファイルからの復旧
# Line 165  type Line 166  type
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;
# Line 317  begin Line 319  begin
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);
# Line 370  begin Line 373  begin
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;

Legend:
Removed from v.1.257  
changed lines
  Added in v.1.258

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26