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.5 by h677, Sun Apr 30 14:08:55 2006 UTC revision 1.6 by h677, Tue May 23 14:51:26 2006 UTC
# Line 3  unit InputAssistDataModule; Line 3  unit InputAssistDataModule;
3  interface  interface
4    
5  uses  uses
6    SysUtils, Classes;    SysUtils, Classes, Windows;
7    
8  type  type
9    TResistWord = class;    TResistWord = class;
# Line 118  begin Line 118  begin
118          try          try
119                  // iniファイルが無ければ、デフォルトをリネームする                  // iniファイルが無ければ、デフォルトをリネームする
120                  if not FileExists(FilePath) then begin                  if not FileExists(FilePath) then begin
121                          RenameFile(ChangeFileExt(FilePath, '.default'), FilePath);                          CopyFile(
122                                            PChar(ChangeFileExt(FilePath, '.default')),
123                                            PChar(FilePath), True);
124                  end;                  end;
125    
126                  // ファイルの存在を確認                  // ファイルの存在を確認
# Line 160  var Line 162  var
162  begin  begin
163          if FileExists(FilePath) then begin          if FileExists(FilePath) then begin
164                  try                  try
165                          DeleteFile(FilePath);                          SysUtils.DeleteFile(FilePath);
166                  except                  except
167                  end;                  end;
168          end;          end;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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