Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

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

revision 1.71 by genyakun, Mon Feb 21 08:32:04 2005 UTC revision 1.72 by h677, Fri Mar 18 13:39:48 2005 UTC
# Line 635  begin Line 635  begin
635          //スタイルシートファイル名一覧          //スタイルシートファイル名一覧
636          FileList := TStringList.Create;          FileList := TStringList.Create;
637          try          try
638            FileList.BeginUpdate;
639                  GikoSys.GetFileList(GikoSys.GetStyleSheetDir, '*.css', FileList, True, True);                  GikoSys.GetFileList(GikoSys.GetStyleSheetDir, '*.css', FileList, True, True);
640            FileList.EndUpdate;
641                  Idx := Length(GikoSys.GetStyleSheetDir);                  Idx := Length(GikoSys.GetStyleSheetDir);
642                  for i := 0 to FileList.Count - 1 do                  for i := 0 to FileList.Count - 1 do
643                          FileList[i] := Copy(FileList[i], Idx + 1, Length(FileList[i]));                          FileList[i] := Copy(FileList[i], Idx + 1, Length(FileList[i]));

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

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