Bucle while sólo devuelve un valor

[[nlsgarcia]]

Jovalca,

Empezado por Jovalca

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

Te comento:

1- El código propuesto en el Msg #2 tiene como único objetivo simular la aplicación mencionada del Msg #1 y mostrar como utilizar los ciclos For y While en dicha simulación.

2- Este es el ciclo For del Msg #1:

Código Delphi [-]
var
  i: integer;
begin
  for i:= 0 to Lista.Count -1 do
    begin
    i:= i+1;
    Memo2.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i]));
  end;
end;

La línea destacada en rojo produce un error de compilación : [DCC Error] Unit1.pas(32): E2081 Assignment to FOR-Loop variable 'i', no se puede modificar el índice del ciclo For durante su ejecución.

3- Este es el ciclo While del Msg #1:

Código Delphi [-]
while i < Lista.Count -1 do
  begin
    i:= i+1;
    Memo2.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i]));
  end;

La línea destacada en rojo, incrementa el contador del indice antes de obtener el primer valor de Lista, debe ser después y no indica en que punto fue inicializada a cero dado que en Delphi los indices inician generalmente en dicho valor.

4- La función ExtractTagAndTextInsideGivenTagEx del Msg #2, tiene como único objetivo simular dicha función para efectos de los ciclos For y While.

5- Te sugiero hacer un Debug a la función ExtractTagAndTextInsideGivenTagEx del Msg #3 y verificar si esta retorna en todos casos los valores esperados.

Empezado por Jovalca

...hacia tiempo que no cogía este lenguaje ya que últimamente ando con php, html, css...

Revisa esta información:

Libros y tutoriales para aprender Delphi

Espero sea útil

Nelson.