IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - Memo Filter (https://www.ircforumlari.net/delphi/689563-memo-filter.html)

Kaf_Dağı

18 Mart 2015 14:37

Memo Filter

Kod:

function FilterMemo(S: string): string;

var

  TagBegin, TagEnd, TagLength: integer;

begin

  TagBegin := Pos( '<', S);

  while (TagBegin > 0) do begin

    TagEnd := Pos('>', S);

    TagLength := TagEnd - TagBegin + 1;

    Delete(S, TagBegin, TagLength);

    TagBegin:= Pos( '<', S);

  end;

    Result := S;

end;

 

Memo1.Text := FilterMemo(Memo1.Text);

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:04.