Class TMainForm (unit B2FMain)

Inherits from

TForm

Folder level (position in folder tree

Constructors



Functions

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

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;