Удалить символы из строки

[develsnik]

Добрый день.
ВОт у меня такой вопрос:
есть мемо в нем есть русские символы и теги такого типа:<div><h3></div> и.т.д.
Как бы мне их убрать и оставить русские символы?
Delete не поможет т.к. теги могут быть на разных местах всегда.
Заранее спасибо

[hon]

Примерно так:

for i:=0 to Memo1.Lines.Count-1 do
    for j:=1 to Length(Memo1.Lines.Strings[i]) do
           if Memo1.Lines.Strings[i][j]='<' then
              while Memo1.Lines.Strings[i][j]<>'>' do
                    Delete(Memo1.Lines.Strings[i][j],j,1);

[develsnik]

на последнею строчку жалуется(

[Serge_Bliznykov]

без проверки, исключительно на форуме пишу:

var s, sRez : string;
  isTag : boolean;
begin
  sRez := '';
  s := Memo1.Text;
  isTag := false;
  for i:=1 to Length(s) do begin
     if s[i]='<' then isTag := true
     else begin
        if not isTag then sRez := sRez + s[i]
        else
           if s[i]='>' then isTag := false;   
     end
  end;
  Memo1.Text := sRez;
end;

[Человек_Борща]

В поздних версиях можно и так.

var
 c:Char;
 i:Integer;
begin
  for i:=Length(Memo1.Text)-1 downto 0 do
  begin
   for c in ['a'..'z','A'..'Z','<','>','/',';',':','$','&'] do
   begin
    if Memo1.Text[i] = c then
    Memo1.Text[i]:='';
   end;
 End;
end;

[develsnik]

да,огромное спасибо)получилось)
Только вот у меня в результате какие то странные знаки появились и пробелы перед строками.
Исходник в приложении ,кому не лень гляньте пожалуйста ,заранее
спасибо)

[Stilet]

и пробелы перед строками

Они не появлялись, они были. Это отступы в самой HTML.
Не знаю что тебе посоветовать, либо регулярные выражения либо в цикле StringReplace().

[Человек_Борща]

зачем?

for i:=0 to Memo1.lines.count -1 do
begin
  Memo1.lines[i]:=Trim(Memo1.lines[i]); 
end;

P.S. У одного меня BBCode'ы перестали работать?

[develsnik]

если делать stringreplace то уберутся все пробелы,а в самой то новости их надо оставить.

Человек_Борща,да ,опять меня выручили,огромное спасибо)
Но что же делать ,с квадратиками,то есть неизвестными символами?

[Stilet]

зачем?

Затем что не только в начале и конце они могут быть
Хотя да trim() как первоначальная припарка.