Como sería ese PHP en delphi?

[cslbcn]

Hola. Quiero hacer una estructura repetitiva en la cual el nombre de un objeto vaya tomando diferentes nombres:

tengo una caja de texto con un name: textbox1
en php tendría esta forma:

Código PHP:

for ($iPos=1;$iPos<10;$iPos++)
{
echo "<input type='text' name='textbox.$iPos'";
} 


Así, mientras la variable $iPos sea más pequeño que 10, mostrará una caja de texto con un nombre diferente cada vez (textbox1, textbox2, textbox2...)

Ese código php cómo se mostraría en lenguaje Delphi?

Gracias
Saludos

[Ñuño Martínez]

¿Exactamente dónde tienes el problema? Porque el bucle es bien simple, o eso me parece.

[cslbcn]

el problema es como se escribe en delphi

[dec]

Hola,

El bucle se escribe de una forma muy similar:

Código Delphi [-]
var
  i: integer;
begin
  for i := 0 to i <= 10 do begin
    // Here your code   
  end;
end;

[cslbcn]

gracias por la respuesta, pero lo que mas me interesaría es saber como se le cambia el nombre a un objeto dentro del bucle

en php es:
name='textbox.$iPos'

y en delphi?

[dec]

Hola,

Bueno. Antes de nada deja que rectifique el código del bucle que he mostrado antes, y es que, ni siquiera compilaría. Últimamente escribo más PHP que Delphi, de ahí el error que se aprecia. He aquí el bucle modificado:

Código Delphi [-]
var
  i: integer;
begin
  for i := 0 to 10 do begin

  end;
end;

La diferencia está en la condición "i <= 10", que, en Delphi, no está permitida. Otrosí, es posible indicar un entero, de forma que el bucle terminará cuando "i" alcance su valor.

Respecto de cambiar el nombre de un objeto... tú sabrás para qué demonios quieres hacerlo (claro está, por otro lado), pero, en todo caso, es posible y aquí se muestra cómo:

Código Delphi [-]
var
  i: integer;
begin
  for i := 0 to Self.ControlCount-1 do begin
    if(Self.Controls[i] is TEdit) then begin
      TEdit(Self.Controls[i]).Name :=
       TEdit(Self.Controls[i]).Name + IntToStr(i);
    end;
  end;
end;

El anterior código recorre todos los controles de un supuesto formulario. A cada paso por el bucle se comprueba si un determinado control es un "TEdit". Y, si es así, cambiamos el nombre del "TEdit", siendo dicho nombre el que ya tiene, añadiéndole el valor de "i".

Dicho más pronto, el operador de concatenación de cadenas, que en PHP es un punto ".", en Delphi es un signo más "+".