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.3 by yoffy, Sun Sep 21 08:46:17 2003 UTC revision 1.4 by h677, Fri Nov 14 17:29:59 2003 UTC
# Line 49  type Line 49  type
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;
# Line 374  begin Line 376  begin
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

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