Parsear datos de un Memo

[ecfisa]

Hola ZayDun.

Por eso te preguntaba si la cadena buscada aparecía mas de una vez en el contenido del memo y si deseabas eliminar todas...

Si deseas borrar todas las ocurrencias de determinada cadena dentro del contenido del memo, podes hacer:

Código Delphi [-]
uses StrUtils;

procedure BorrarOcurrencias(M : TMemo; const Texto : string);
var
  p1, p2: Integer;
  s: string;
begin
  s  := M.Text;
  p2 := 1;
  repeat
    p1 := PosEx(Texto, s, p2);
    Delete(s, p1, Length(Texto));
    p2 := p1;
  until (p1 = 0) or (p1 > p2);
  M.Text := s;
end;

Uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  BorrarOcurrencias(Memo1, 'duracion=12:25"')
end;

Saludos