Bucle while sólo devuelve un valor

[[nlsgarcia]]

Jovalca,

Empezado por Jovalca

...Bucle (For/While)...sólo devuelve un valor...Y al menos hay 7 resultados...¿Porqué se detiene y no obtiene los siguientes?...

Revisa esta código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ExtractTagAndTextInsideGivenTagEx(TR, Lista : String) : String;
begin
   Result := UpperCase(TR) + '-' + Lista;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
   Lista : TStringList;

begin

   Lista := TStringList.Create;

   for i := 1 to 10 do
      Lista.Add('Item-' + IntToStr(i));

   Memo1.Clear;

   for i := 0 to Lista.Count -1 do
   begin
      Memo1.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i]));
   end;

   Lista.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   i : integer;
   Lista : TStringList;

begin

   Lista := TStringList.Create;

   for i := 1 to 10 do
      Lista.Add('Item-' + IntToStr(i));

   Memo1.Clear;

   i := 0;

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

   Lista.Free;

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, genera valores en un TStringList, los procesa y muestra posteriormente en un TMemo para simular la aplicación descrita en el Msg #1.

Espero sea útil

Nelson.