Cita:
Empezado por dec
Nótese que prefiero además almacenar la "longitud" del bucle en una variable, será por leer a Francisco Charte.  |
Supongo que Francisco Charte no se ha percatado de que el compilador de delphi evalúa el límite final sólo una vez al comienzo del ciclo
for y no en cada vuelta
Pruébenlo:
Código Delphi
[-]
function Limit(): Integer;
begin
ShowMessage('Estableciendo el límite');
Result := 3;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 1 to Limit() do
ShowMessage(Format('Vuelta %d', [i]));
end;
// Saludos