Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.234 by h677, Sun Apr 4 14:15:33 2004 UTC revision 1.235 by h677, Sun Apr 4 15:55:04 2004 UTC
# Line 1756  begin Line 1756  begin
1756                  SaveHistory;                  SaveHistory;
1757          except          except
1758          end;          end;
1759          try      try
1760          ClearHistory;          try
1761      except                  ClearHistory;
1762                except
1763            end;
1764        finally
1765            FHistoryList.Free;
1766      end;      end;
1767    
1768          //巡回リスト保存&破棄          //巡回リスト保存&破棄
# Line 3615  begin Line 3619  begin
3619                  saveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');                  saveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
3620                  saveList.Add('<address>');                  saveList.Add('<address>');
3621                  bound := FHistoryList.Count - 1;                  bound := FHistoryList.Count - 1;
3622                  for i := 0 to bound do begin                  for i := bound downto 0 do begin
3623                          // title は今のところ使っていない                          // title は今のところ使っていない
3624                          saveList.Add(                          saveList.Add(
3625                                  '<history url="' + HtmlEncode( TFavoriteThreadItem( FHistoryList[ i ] ).URL ) + '"' +                                  '<history url="' + HtmlEncode( TFavoriteThreadItem( FHistoryList[ i ] ).URL ) + '"' +
# Line 6365  begin Line 6369  begin
6369          try          try
6370                  Dlg.ShowModal;                  Dlg.ShowModal;
6371          finally          finally
6372                  Dlg.Free;                  Dlg.Release;
6373          end;          end;
6374          SetLinkBar;          SetLinkBar;
6375  end;  end;

Legend:
Removed from v.1.234  
changed lines
  Added in v.1.235

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