Perdonen que me meta con sus códigos, pero es que o hay algo que yo no estoy entendiendo o se están complicando la vida...
Cita:
Empezado por dec
O lo mismo de antes, pero, con un bucle "For":
Código Delphi [-]
var
i,j: integer;
begin
j := 2;
for i := 0 to 49 do begin
Memo1.Lines.Add(IntToStr(j));
j := j + 2;
end;
end;
|
Suponiendo que el incremento está en 1 y no se puede cambiar eso, bastaría con:
Código Delphi
[-]
for i := 0 to 49 do begin
...
...
...
i := i + 1;
end;
Cita:
Empezado por Delphius
Hola douglas,
Hay varias maneras de hacerlo. Una manera sería hacer algo como esto:
Código Delphi [-]
for i := 1 to 10 do
begin
ii := i * 2; // Esto garantiza el incremento de dos en dos.
ShowMessage(IntToStr(ii));
end;
Creo que es mejor que con la misma variable con que controlas el for (i)hagas el resto del trabajo, al fin y al cabo por algo la estás incrementadoi de 2 en 2
Aunque yo prefiero la opción de un bucle:
Código Delphi [-] i := 2;
while i <= 20 do
begin
// hacer algo...
i := i + 2 //O en su defecto: inc(i,2);
// hacer otra cosa si es necesario...
end;
Para mí también es la mejor opción.
|