Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/InputAssistDataModule.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|