Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Setting.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1218 |
if Exists then begin |
if Exists then begin |
| 1219 |
for i := 0 to GetSoundCount - 1 do begin |
for i := 0 to GetSoundCount - 1 do begin |
| 1220 |
SoundFileName[i] := ini.ReadString('Sound', SoundName[i], ''); |
SoundFileName[i] := ini.ReadString('Sound', SoundName[i], ''); |
| 1221 |
if not FileExists(SoundFileName[i]) then |
// 相対参照対策 |
| 1222 |
SoundFileName[i] := ''; |
s := SoundFileName[i]; |
| 1223 |
|
if (AnsiPos('.\', SoundFileName[i]) = 1) then begin |
| 1224 |
|
s := GetAppDir |
| 1225 |
|
+ Copy(SoundFileName[i], 2, Length(SoundFileName[i])); |
| 1226 |
|
end; |
| 1227 |
|
// ファイルの存在チェック |
| 1228 |
|
if not FileExists(SoundFileName[i]) then begin |
| 1229 |
|
SoundFileName[i] := ''; |
| 1230 |
|
end; |
| 1231 |
end; |
end; |
| 1232 |
end else begin |
end else begin |
| 1233 |
s := GetAppDir + '\sound\'; |
s := GetAppDir + '\sound\'; |
| 1880 |
for i := 0 to GetSoundCount - 1 do begin |
for i := 0 to GetSoundCount - 1 do begin |
| 1881 |
if SoundName[i] = Name then begin |
if SoundName[i] = Name then begin |
| 1882 |
Result := SoundFileName[i]; |
Result := SoundFileName[i]; |
| 1883 |
|
// 相対パス対策 |
| 1884 |
|
if (AnsiPos('.\', Result) = 1) then begin |
| 1885 |
|
Result := GetAppDir |
| 1886 |
|
+ Copy(Result, 2, Length(Result)); |
| 1887 |
|
end; |
| 1888 |
Exit; |
Exit; |
| 1889 |
end; |
end; |
| 1890 |
end; |
end; |
|
|
Legend:
| Removed from v.1.133 |
|
| changed lines |
| |
Added in v.1.134 |
|
|
| |