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.22 by h677, Tue Mar 16 15:37:55 2004 UTC revision 1.23 by h677, Thu Mar 18 14:16:57 2004 UTC
# Line 185  procedure TFavoriteDM.DataModuleDestroy( Line 185  procedure TFavoriteDM.DataModuleDestroy(
185  var  var
186          i: Integer;          i: Integer;
187  begin  begin
188          for i := 0 to TreeView.Items.Count - 1 do begin          for i := TreeView.Items.Count - 1 downto 0 do begin
189                  TObject(TreeView.Items[i].Data).Free;                  TObject(TreeView.Items[i].Data).Free;
190          end;          end;
191      TreeView.Free;      TreeView.Free;
# Line 216  begin Line 216  begin
216    
217          if FileExists(FileName) then begin          if FileExists(FileName) then begin
218                  try                  try
219                          XMLDoc := LoadXMLDocument(FileName);              XMLDoc := IXMLDocument.Create;
220                            //XMLDoc := LoadXMLDocument(FileName);
221                LoadXMLDocument(FileName, XMLDoc);
222                          XMLNode := XMLDoc.DocumentElement;                          XMLNode := XMLDoc.DocumentElement;
223    
224                          FStack := TStack.Create;                          FStack := TStack.Create;
# Line 240  begin Line 242  begin
242                                  end;                                  end;
243                          finally                          finally
244                                  FStack.Free;                                  FStack.Free;
245                    XMLDoc.Free;
246                          end;                          end;
247                  except                  except
248                  end;                  end;
# Line 332  begin Line 335  begin
335                                                  end;                                                  end;
336                                                  FavThread := TFavoriteThreadItem.Create(                                                  FavThread := TFavoriteThreadItem.Create(
337                                                          threadItem.URL, Node.Attributes[ 'title' ], threadItem );                                                          threadItem.URL, Node.Attributes[ 'title' ], threadItem );
338                            threadItem.Free;
339                                          end else begin                                          end else begin
340                                                  FavThread := TFavoriteThreadItem.Create(                                                  FavThread := TFavoriteThreadItem.Create(
341                                                          Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );                                                          Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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