<![CDATA[size : 750
uploaded_on : Thu Sep 9 00:00:00 1999
modified_on : Wed Dec 8 14:02:54 1999
title : Text to HTML
org_filename : Txt2HTML.txt
author : Jeevan James
authoremail : jeevanjj@satyam.net.in
description : A small procedure to convert a text file to a simple HTML file
keywords :
tested : not tested yet
submitted_by : The CKB Crew
submitted_by_email : ckb@netalive.org
uploaded_by : nobody
modified_by : nobody
owner : nobody
lang : plain
file-type : text/plain
category : delphi-filehandling
__END_OF_HEADER__
procedure Txt2Html (TxtFile, HtmlFile, Title : String);
var
TxtLines, HtmlLines : TStringList;
I : Integer;
begin
TxtLines := TStringList.Create;
HtmlLines := TStringList.Create;
with HtmlLines do
try
TxtLines.LoadFromFile (TxtFile);
Add ('<HTML>');
Add ('<HEAD>');
Add ('<TITLE>' + Title + '</TITLE>');
Add ('</HEAD>');
Add ('<BODY>');
for I := 0 to Pred (TxtLines.Count) do
Add ('<P>' + TxtLines[I]);
Add ('</BODY>');
Add (</HTML>');
SaveToFile (HtmlFile);
finally
TxtLines.Free;
HtmlLines.Free;
end;
end;
]]>