Bucle while sólo devuelve un valor

[Jovalca]

Muchas gracias por tu respuesta Nelson.

Lo único es que no veo si puede ayudarme ya que es prácticamente lo que tengo yo.

En tu mensaje:

Código Delphi [-]
begin

   Lista := TStringList.Create; //Creas la lista

   for i := 1 to 10 do
      Lista.Add('Item-' + IntToStr(i)); // Añades 10 lineas

   Memo1.Clear; 

   i := 0;

   while i <= Lista.Count - 1 do //mientras i sea igual o menor que los elementos de la lista
   begin
      Memo1.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i])); // buscamos "tr" en cada linea
      i := i + 1; // incrementamos i
   end;

   Lista.Free;

end;

Lo unico que no comprendo es esto:

Código Delphi [-]
Result := UpperCase(TR) + '-' + Lista;

La verdad, se me mezcla todo un poco en la cabeza porque hacia tiempo que no cogía este lenguaje ya que últimamente ando con php,html,css...

Esta es la funcion que uso para encontrar y extraer la etiqueta en la lista.
Es posible que algo esté mal aquí?

Código Delphi [-]
function ExtractTagAndTextInsideGivenTagEx(const Tag, Text: string): string;
var
  StartPos, EndPos: integer;
begin
  result := '';
  StartPos := Pos('<' + Tag, Text);
  EndPos:= Pos('<' + '/' + Tag + '>', Text);
  if (StartPos > 0) and (EndPos > StartPos) then
    result := Copy(Text, StartPos, EndPos - StartPos + length(Tag) + 3);
end;

Gracias de nuevo.