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.7.2.1 by h677, Wed May 31 15:39:42 2006 UTC revision 1.11 by h677, Sat Jul 21 01:56:29 2007 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
# Line 415  end; Line 408  end;
408  function TInputAssistDM.IsDupulicate(Key: String; Category: String): Boolean;  function TInputAssistDM.IsDupulicate(Key: String; Category: String): Boolean;
409  var  var
410          i : Integer;          i : Integer;
         resWord : TResistWord;  
411  begin  begin
412          // このメソッドでは、ソート済みとは限らないので、全てのキーを探索している          // このメソッドでは、ソート済みとは限らないので、全てのキーを探索している
413          Result := False;          Result := False;

Legend:
Removed from v.1.7.2.1  
changed lines
  Added in v.1.11

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