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 |
| 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 |
|
|
|