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

[bender42]

Сообщение от 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;

Спасибо код помог но как поставить знак пробела или запетую между словами которые он выдернул?

[Serge_Bliznykov]

попробуйте так

     if s[i]='<' then isTag := true
     else begin
        if not isTag then sRez := sRez + s[i]
        else
           if s[i]='>' then begin
                sRez := sRez + ' '; {добавили пробел после}
                isTag := false;   
           end; 
     end

[bender42]

Сообщение от Serge_Bliznykov

попробуйте так

     if s[i]='<' then isTag := true
     else begin
        if not isTag then sRez := sRez + s[i]
        else
           if s[i]='>' then begin
                sRez := sRez + ' '; {добавили пробел после}
                isTag := false;   
           end; 
     end

Спасибо )))