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