掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
すぱむ (ID:38376)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご無沙汰してます。 function DeleteTag(str:string):string; var tagOn:Boolean; buf:string; i:Integer; begin tagOn :=False; for i := 1 to Length(str) do begin if str[i]='<' then tagOn := True else if str[i]='>' then tagOn := False else begin if tagOn=False then buf := buf + str[i]; end; end; Result := buf; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := DeleteTag(Edit1.Text); end; Posは使用してませんが、考え方は同じです。 HTML準拠となりますとまだまだ不備ですし、速度的にも最高ではありません。 考え方ということでわかりやすくしてあります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.