Class TFormMain (unit FormMainUnit) |
Inherits from
TForm
This code was written by
Ulf Grasse, SEPT 16, 1996.
Please consider this code public domain (i.e. Freeware), but abide
by the following rules:
- If you find this code useful please email me or (better!) send me a
postcard from your hometown.
- If you have questions regarding this code and/or techniques and
methods used in it, please feel free to email me with same. I can
NOT guarantee a prompt answer, but I will try my best to keep up.
Questions and inquiries which are accompanied or preceeded by a
postcard receive priority handling.
For replies I will *exclusively* use email. Be sure to include your
e-mail address should you send a request via snail-mail or fax.
- If you decide to add more features and make this a "real" program,
I'd be interested to see the results. Please email me a .zip!
- If you this code or any part of same in a shareware or commercial
program, you are required to provide me with a roundtrip-ticket
and one week hotel reservation as soon as you make your first MILLION
on it... as if that'll ever happen.
- You are required to smile while using this code or any part of it.
You may contact me at:
Ulf Grasse e-mail: software@ulf.net
705 King St. URL: http://www.ulf.net
Rockford, IL 61103
USA Fax: 815-969-9476
procedure BtnGenerateClick(Sender: TObject);
procedure BtnScanClick(Sender: TObject);
Generate the usual HTML page ending, then close the file
procedure AddHeader(Name : string);
might want to remove the 'target'
procedure AddURL(Name, URL : string);
Write a header (i.
procedure CloseHTML;
Write a URL
procedure OpenHTML;
The following procedures generate the HTML file OK, all done
procedure ScanDir(Dir, Path : string; Indent : integer);
Public declarations } { This procedure is recursively called for every directory Name of the html file
BtnGenerate : TButton;
BtnScan : TButton;
LeftPanel : TPanel;
Memo : TMemo;
html : text;
Private declarations
writeHTML : boolean;
The output-file for generating HTML
procedure BtnGenerateClick(Sender: TObject);
procedure BtnScanClick(Sender: TObject);
Generate the usual HTML page ending, then close the file
procedure AddHeader(Name : string);
might want to remove the 'target'
procedure AddURL(Name, URL : string);
Write a header (i.e. Directory name )
procedure CloseHTML;
Write a URL
procedure OpenHTML;
The following procedures generate the HTML file
OK, all done
procedure ScanDir(Dir, Path : string; Indent : integer);
Public declarations } { This procedure is recursively called for every directory
Name of the html file
BtnGenerate : TButton;
BtnScan : TButton;
LeftPanel : TPanel;
Memo : TMemo;
html : text;
Private declarations
writeHTML : boolean;
The output-file for generating HTML