Develop and Download Open Source Software
Login
Create Account
Help
MY OSDN
Find Software
Magazine
Develop
Pastebin
Software
People
PersonalForge
Magazine
Wiki
OSDN
>
Find Software
>
ギコナビ(避難所版)
ギコナビ(避難所版)
Summary
Project Summary
Developer Dashboard
Project Reviews
Web Page
Developers
List of RSS Feeds
Statistics
History
Image Gallery
Search Keywords
News
Listed News
Help
Downloads
List of Releases
Help
Source Code
Guide
Browse CVS
Browse Git: gikonavi
Help
Wiki
FrontPage
Title index
Recent changes
Wiki Search
Help
Forums
List of Forums
Open Discussion (2)
Help (1)
Developers (1)
Help
Mailing Lists
list of ML
Help
Ticket
Ticket List
Milestone List
Type List
Component List
List of frequently used tickets/RSS
Submit New Ticket
Help
Browse CVS Repository
/
[OSDN]
/
gikonavigoeson
/
gikonavi
/
Favorite.pas
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
|
Revision Log
|
Revision Graph
|
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 );
Colored Diff
Long Colored Diff
Full Colored Diff
Unidiff
Context Diff
Side by Side
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