Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 49 |
// procedure SAXCharacters(Sender: TObject; const PCh: SAXString); |
// procedure SAXCharacters(Sender: TObject; const PCh: SAXString); |
| 50 |
public |
public |
| 51 |
{ Public 宣言 } |
{ Public 宣言 } |
| 52 |
|
function GetFavoriteFilePath() : String; |
| 53 |
|
function SaveFavoriteFile(FileName: String) : Boolean; |
| 54 |
procedure SetFavTreeView(TreeView: TTreeView); |
procedure SetFavTreeView(TreeView: TTreeView); |
| 55 |
procedure ReadFavorite; |
procedure ReadFavorite; |
| 56 |
procedure WriteFavorite; |
procedure WriteFavorite; |
| 376 |
// |
// |
| 377 |
end; |
end; |
| 378 |
} |
} |
| 379 |
|
function TFavoriteDM.SaveFavoriteFile(FileName: String) : Boolean; |
| 380 |
|
var |
| 381 |
|
FavoriteFilePath: string; |
| 382 |
|
tempStringList: TStringList; |
| 383 |
|
begin |
| 384 |
|
|
| 385 |
|
FavoriteFilePath := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; |
| 386 |
|
|
| 387 |
|
if FileExists( FavoriteFilePath ) then begin |
| 388 |
|
tempStringList := TStringList.Create; |
| 389 |
|
try |
| 390 |
|
tempStringList.LoadFromFile( FavoriteFilePath ); |
| 391 |
|
tempStringList.SaveToFile( FileName ); |
| 392 |
|
finally |
| 393 |
|
tempStringList.Free; |
| 394 |
|
end; |
| 395 |
|
Result := true; |
| 396 |
|
end else begin |
| 397 |
|
Result := false; |
| 398 |
|
end; |
| 399 |
|
end; |
| 400 |
|
|
| 401 |
|
function TFavoriteDM.GetFavoriteFilePath() : String; |
| 402 |
|
begin |
| 403 |
|
Result := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; |
| 404 |
|
end; |
| 405 |
|
|
| 406 |
end. |
end. |
|
|
Legend:
| Removed from v.1.3 |
|
| changed lines |
| |
Added in v.1.4 |
|
|
|