Hola, quiero extraer datos que me llegan a un memo, pensaba que sería lo mas fácil de hacer, pero cuando he realizado unas pruebas he visto que estoy haciendo algo mal y no se donde esta el problema. Si alguien me pudiese orientar un poco se lo agradecería.
Código Delphi
[-]
Var
Time:String;
i:integer
Begin
Time:=Memo1.Lines.Text;
for i:=1 to Memo1.Lines.Count-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;
Al recorrer el memo me muestra unicamente un dato, cuando pensaba que recorrería todo el memo1 y me añadiria los resultados en el memo2.