(*==============================================================
 Snitz Forums 2000 論壇 語法轉換（用於HTML預覽網頁功能）
 網址：http://forum.snitz.com/       使用方式：        //YBB轉HTML
    procedure TForm1.XTHTML1Click(Sender: TObject);
    begin
     Memo1.Lines.Text :='〈HTML〉〈body〉〈Pre〉'  
                        FCL_CleanCode(Memo1.Lines.Text) 
                        '〈/Pre〉〈/body〉〈/HTML〉';
    end;
===============================================================  *) 

範例： [url="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40278"]KTOP發表文章之編修工具 4.0 [/url] [url="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37918"]KTOP發表文章之編修工具 3.0 [/url] [url="http://delphi.ktop.com.tw/topic.php?topic_id=37819"]KTOP發表文章之編修工具 2.0 [/url] [url="http://delphi.ktop.com.tw/topic.php?topic_id=37739"]KTOP發表文章之編修工具[/url] 希望有興趣的人，寫更好的編輯器，給 src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，學無止境!

附加檔案：44516_FCL_YBBtoHTML.pas