示例：Windows Live Writer内容转换工具

示例：Windows Live Writer内容转换工具
说明：
最近使用Windows Live Writer写博客时，发觉行距过大、字体不好看。而手动修改博客的Html内容又很麻烦，所以随手写了这个工具。

界面：
 
object Form1: TForm1
  Left = 192
  Top = 114
  Width = 682
  Height = 388
  Caption = 'Windows Live Writer内容转换工具'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btnConvert: TButton
    Left = 560
    Top = 16
    Width = 97
    Height = 25
    Caption = '转换并复制'
    TabOrder = 0
    OnClick = btnConvertClick
  end
  object btnClear: TButton
    Left = 560
    Top = 48
    Width = 97
    Height = 25
    Caption = '清空内容'
    TabOrder = 1
    OnClick = btnClearClick
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 273
    Height = 354
    Align = alLeft
    Caption = 'TXT格式'
    TabOrder = 2
    object mmoTxt: TMemo
      Left = 2
      Top = 15
      Width = 269
      Height = 337
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 273
    Top = 0
    Width = 264
    Height = 354
    Align = alLeft
    Caption = 'HTML格式'
    TabOrder = 3
    object mmoHtml: TMemo
      Left = 2
      Top = 15
      Width = 260
      Height = 337
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
end

代码：
unit Unit1;

interface

uses
    Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
    Dialogs,StdCtrls;

type
    TForm1 = class(TForm)
        btnConvert: TButton;
        btnClear: TButton;
        mmoTxt: TMemo;
        GroupBox1: TGroupBox;
        GroupBox2: TGroupBox;
        mmoHtml: TMemo;
        procedure btnConvertClick(Sender: TObject);
        procedure btnClearClick(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnConvertClick(Sender: TObject);
    //---
    procedure _TxtToHtml;
    var
        aStr: string;
    begin
        aStr := self.mmoTxt.Text;
        //---
        aStr := StringReplace(aStr, ' ', ' ', [rfReplaceAll,rfIgnoreCase]);
        aStr := StringReplace(aStr,#13#10, '
', [rfReplaceAll,rfIgnoreCase]);
        //---
        self.mmoHtml.Text := format('

%s

', [aStr]);
    end;
    //---
    procedure _Copy;
    begin
        with self.mmoHtml do
        begin
            SelectAll;
            CopyToClipboard;
        end;
    end;
begin
    _TxtToHtml;
    _Copy;
end;

procedure TForm1.btnClearClick(Sender: TObject);
begin
    self.mmoTxt.Clear;
    self.mmoHtml.Clear;
end;

end.