xhtml.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 34 行

unit xHtml;


//取得粗体文本
function GetHtmlBold(s: String): string;

//取得斜体文本
function GetHtmlItalic(s: String): string;

//取得引号文本
function GetHtmlQuotes(s: string): string;

//取得链接
function GetHtmlLink(URL, Name: string): string;

//取得邮件链接
function GetHtmlMailTo(Address, Name: string): string;

//取得参数
function GetHtmlParameters(s: string): string;

//取得纯文本，删除HTML标记，例如：
//GetHtmlText('<TR><TD Align="center">Hello World</TD>') = 'Hello World'
function GetHtmlText(s:string):string;

//空白符转换为加号，用于URL传递。
function SpacesToPluses(s: string): string;

//HTML的RGB颜色字符串转换为颜色值
function GetHtmlColorValue(S: String): TColor;

//颜色值转换为HTML的RGB颜色字符串
function GetHtmlColorString(Color: TColor): string;