Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/InputAssistDataModule.pas

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

revision 1.9 by h677, Mon Jun 26 14:57:15 2006 UTC revision 1.10 by h677, Mon Jul 3 14:49:07 2006 UTC
# Line 120  var Line 120  var
120  begin  begin
121          FInit := True;          FInit := True;
122          try          try
                 // iniファイルが無ければ、デフォルトをリネームする  
                 if not FileExists(FilePath) then begin  
                         CopyFile(  
                                         PChar(ChangeFileExt(FilePath, '.default')),  
                                         PChar(FilePath), True);  
                 end;  
   
123                  // ファイルの存在を確認                  // ファイルの存在を確認
124                  if FileExists(FilePath) then begin                  if FileExists(FilePath) then begin
125                          ini := TMemIniFile.Create(FilePath);              ini := TMemIniFile.Create(FilePath);
126                          sections := TStringList.Create;                          sections := TStringList.Create;
127                          keys := TStringList.Create;                          keys := TStringList.Create;
128                          try                          try

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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