すぱむ (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準拠となりますとまだまだ不備ですし、速度的にも最高ではありません。 考え方ということでわかりやすくしてあります。