Class TMainForm (unit B2FMain) |
Inherits from
TForm
Folder level (position in folder tree
procedure Button1Click(Sender: TObject);
Replace illegal chars in filenames.
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.
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.
procedure ScanBmkLine(I: Integer; Lvl: Integer);
Make favorites from the list Clean up
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;
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
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;