| Class TMainForm (unit B2FMain) |
TForm
Folder level (position in folder tree
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Convert(Folder: String);
function FindFolder(HtmlStr: String; var Lvl: Integer): Boolean;
function FindSectionEnd(HtmlStr: String; var Lvl: Integer): Boolean;
function FindUrl(HtmlStr: String; Lvl: Integer): Boolean;
procedure GetFavoritesFolder(var Folder: String);
procedure MakeFavorites;
function MakeFolder(Folder: String): Boolean;
function MakeUrlFile(UrlName, UrlPath: String): Boolean;
procedure ReplaceIllChars(var S: String);
procedure ScanBmkLine(I: Integer; Lvl: Integer);| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
OpenDialog1 : TOpenDialog;
BookmarkList : TStringList;
L : TList;
LastFolder : String;
LvlList : TStringList;
TargetFolder : String;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);Replace illegal chars in filenames. This is necessary since Internet Explorer stores the names as files and folders.
procedure Button2Click(Sender: TObject);Now convert all the bookmark links
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Convert(Folder: String);Function to sort the list of bookmarks alphabetically
function FindFolder(HtmlStr: String; var Lvl: Integer): Boolean;Recursive method to scan all lines in the bookmark file
function FindSectionEnd(HtmlStr: String; var Lvl: Integer): Boolean;Finally store a record with the data
function FindUrl(HtmlStr: String; Lvl: Integer): Boolean;FName := FName + '\' + Folder; Finally store a record with the data
procedure GetFavoritesFolder(var Folder: String);---------------------- TMainForm ---------------------
procedure MakeFavorites;1 level down
function MakeFolder(Folder: String): Boolean;+IntToStr(UrlRec.Level)+' - '
function MakeUrlFile(UrlName, UrlPath: String): Boolean;
procedure ReplaceIllChars(var S: String);A URL-file has the structure of an INI-file with just one section. Create the file as an INI-file and save the URL path.
procedure ScanBmkLine(I: Integer; Lvl: Integer);Make favorites from the list Clean up
| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Edit1 : TEdit;
Edit2 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
OpenDialog1 : TOpenDialog;
BookmarkList : TStringList;
L : TList;
LastFolder : String;
LvlList : TStringList;
TargetFolder : String;