Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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 |
|
|
|