begin
FInit := True;
try
- // ini\83t\83@\83C\83\8b\82ª\96³\82¯\82ê\82Î\81A\83f\83t\83H\83\8b\83g\82ð\83\8a\83l\81[\83\80\82·\82é
- if not FileExists(FilePath) then begin
- CopyFile(
- PChar(ChangeFileExt(FilePath, '.default')),
- PChar(FilePath), True);
- end;
-
// \83t\83@\83C\83\8b\82Ì\91¶\8dÝ\82ð\8am\94F
if FileExists(FilePath) then begin
- ini := TMemIniFile.Create(FilePath);
+ ini := TMemIniFile.Create(FilePath);
sections := TStringList.Create;
keys := TStringList.Create;
try