Jovalca,
Cita:
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.
Cita:
Empezado por Jovalca
...hacia tiempo que no cogía este lenguaje ya que últimamente ando con php, html, css...
|
Revisa esta información:
Espero sea útil
Nelson.