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.3 by h677, Sat Feb 18 18:09:47 2006 UTC revision 1.4 by h677, Tue Apr 25 15:23:11 2006 UTC
# Line 113  var Line 113  var
113          keys: TStringList;          keys: TStringList;
114          i, j : Integer;          i, j : Integer;
115          resWord : TResistWord;          resWord : TResistWord;
116            tmpStr: String;
117  begin  begin
118          FInit := True;          FInit := True;
119          try          try
120                    // iniファイルが無ければ、デフォルトをリネームする
121                    if not FileExists(FilePath) then begin
122                            RenameFile(ChangeFileExt(FilePath, '.default'), FilePath);
123                    end;
124    
125                  // ファイルの存在を確認                  // ファイルの存在を確認
126                  if FileExists(FilePath) then begin                  if FileExists(FilePath) then begin
127                          ini := TMemIniFile.Create(FilePath);                          ini := TMemIniFile.Create(FilePath);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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