Parsear datos de un Memo

[ZayDun]

Empezado por duilioisola

El problema que tienes es que lo recorres hacia adelante.
Deberías recorrerlo hacia atrás (si utilizas FOR...DO).

Código Delphi [-]
Var
   Time : String;
   i : integer
Begin
   Time := Memo1.Lines.Text;

   // Datos a extraer del memo duracion = 12:25"
   for i:= Memo1.Lines.Count-1 downto 1 do
      If Pos('duracion=',Time) > 0 Then
      Begin
         Delete (Time,1,Pos('duracion="', Time) + 8);
         Delete (Time, Pos ('"', Time), MaxInt);
         Memo2.Lines.Add(Time);
      End;

El problema es que recorres la lista según el índice
Si encuentras, borras el elemento en la posición del indice. Esto hace que todo lo que le sigue "caiga" una posición.
Luego el FOR avanza el indice y esa posición ya no la has tratado.

Deberías hacerlo con un WHILE e incrementar el índice solo si no encuentras lo que buscas.

Gracias por tu explicación, estoy intentando mediante WHITE, pero la verdad que estoy dando muchas vueltas y aunque he visto varios ejemplos no me queda claro como utilizarlo.

Código Delphi [-]
While i <= Memo1.Lines.Count-1 do //??
begin
...
End;

[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