[BlueLeaf1336]> PROGRAM> Natural Born Junk>

HTML特殊文字変換機

historyTOP

2002/11/03:作成
2003/07/20:&lt→<他修正

memoTOP

HTMLのソースをHTMLページで表示するために使用する。非常に手抜き。

codeTOP

(*
    =================================================
    "<"と">"と"&"を、HTMLで正しく表示するための変換器
    =================================================
*)

function ChangeHTMLSpecialChar(text: string): string;
var
    i: integer;
    src, dest: array[0..2] of string;
begin

    //なんとなくループでまわしたくなったので配列に。
    //"&"を最初に変換しとかないと大変なことに
    src[0] := '&';  dest[0] := '&amp;';
    src[1] := '<';  dest[1] := '&lt;';
    src[2] := '>';  dest[2] := '&gt;';

    //変換元をコピーする
    Result := Text;
    //早い話、for i := 0 to 2 do
    for i := Low(src) to High(src) do
    begin
        //置換してるだけ
        Result := StringReplace(Result, src[i], dest[i], [rfReplaceAll]);
    end;

end;
(*
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++
    テスト
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++
*)
procedure TForm1.Button1Click(Sender: TObject);
begin
    Memo2.Text := ChangeHTMLSpecialChar(Memo1.Text);
end;

EOFTOP