Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.133 by h677, Mon Mar 3 14:51:02 2008 UTC revision 1.134 by h677, Sun Jul 27 16:24:14 2008 UTC
# Line 1218  begin Line 1218  begin
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\';
# Line 1872  begin Line 1880  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26