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.16 by hi_, Sun Aug 31 16:45:55 2003 UTC revision 1.17 by h677, Mon Sep 1 11:29:26 2003 UTC
# Line 215  begin Line 215  begin
215          FSetting := TSetting.Create;          FSetting := TSetting.Create;
216          FDolib := TDolib.Create;          FDolib := TDolib.Create;
217          FAWKStr := TAWKStr.Create(nil);          FAWKStr := TAWKStr.Create(nil);
218                  FAbon := TAbon.Create;      if DirectoryExists(GetConfigDir) = false then begin
219                  FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);          CreateDir(GetConfigDir);
220                  //FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME);      end;
221          FAbon.GoHome;          FAbon := TAbon.Create;
222                  FSelectResFilter := TAbon.Create;          FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);
223                  //FSelectResFilter.Setroot( GetAppDir );      //FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME);
224                  // 絞らない場合は False なのでいらない      FAbon.GoHome;
225                  // FSelectResFilter.Reverse := True;      FSelectResFilter := TAbon.Create;
226                  // 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除          // 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除
227                  FSelectResFilter.AbonString := '';          FSelectResFilter.AbonString := '';
228  end;  end;
229    
230  (*************************************************************************  (*************************************************************************

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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