Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

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

revision 1.26 by h677, Tue Mar 30 14:14:53 2004 UTC revision 1.27 by h677, Fri Apr 2 16:01:43 2004 UTC
# Line 59  type Line 59  type
59  //              procedure SAXCharacters(Sender: TObject; const PCh: SAXString);  //              procedure SAXCharacters(Sender: TObject; const PCh: SAXString);
60          public          public
61                  { Public 宣言 }                  { Public 宣言 }
62            procedure Clear;
63                                  function GetFavoriteFilePath() : String;                                  function GetFavoriteFilePath() : String;
64                                  function SaveFavoriteFile(FileName: String) : Boolean;                                  function SaveFavoriteFile(FileName: String) : Boolean;
65                  procedure SetFavTreeView(TreeView: TTreeView);                  procedure SetFavTreeView(TreeView: TTreeView);
# Line 198  procedure TFavoriteDM.DataModuleDestroy( Line 199  procedure TFavoriteDM.DataModuleDestroy(
199  var  var
200          i: Integer;          i: Integer;
201  begin  begin
202    {    TreeView.Items.BeginUpdate;
203            for i := TreeView.Items.Count - 1 downto 0 do begin
204               //   if TObject(TreeView.Items[i].Data) <> nil then
205           //       TObject(TreeView.Items[i].Data).Free;
206            end;
207        TreeView.Items.Clear;
208        TreeView.Items.EndUpdate;
209    }    //TreeView.Free;
210    end;
211    procedure TFavoriteDM.Clear;
212    var
213            i: Integer;
214    begin
215      TreeView.Items.BeginUpdate;      TreeView.Items.BeginUpdate;
216          for i := TreeView.Items.Count - 1 downto 0 do begin          for i := TreeView.Items.Count - 1 downto 0 do begin
217                  TObject(TreeView.Items[i].Data).Free;                  if TObject(TreeView.Items[i].Data) <> nil then
218                    TObject(TreeView.Items[i].Data).Free;
219          end;          end;
220      TreeView.Items.Clear;      TreeView.Items.Clear;
221      TreeView.Items.EndUpdate;      TreeView.Items.EndUpdate;

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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