Como sería ese PHP en delphi?

[cslbcn]

Explico mi caso particular.
Se trata de un calendario. Usando un datetimepicker se selecciona una fecha (06/08/2008), por ejemplo.

Cuando la fecha ha sido seleccionada, se pulsa un botón y cuando se pulsa el botón debe ejecutar este código (en PHP):

Código PHP:

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


Este código significa que iPos=1 y mientra iPos sea inferior a 10, la variable IPos valdrá +1 en cada ejecución del FOR. Si la condición se cumple, en la pantalla veremos aparecer un <input type='text' name="iPos"> con el nombre del objeto sujeto a la variable.

>Se inicia el programa. Hace el primer input y sale un cuadro que se llama 1.
Como que 1 es inferior a 10 me crea otro cuadro que se llama 2...

No creo que en delphi varie mucho a PHP. Algo como:

Código Delphi [-]
begin
  for i := 0 to 10 do begin
      TEdit.Name + IntToStr(i);
  end;
  end;

end;

no serviría?


P.D: faltan los controladores para que haga el salto de linea cuando llegue a domingo.

[tcp_ip_es]

Supongo que querrás algo como esto..... dinos algo

procedure TForm1.Button1Click(Sender: TObject);
var i,cizq,ctop:integer;
begin
 cizq:=10;
 ctop:=10;
 for i:=0 to 10 do
  begin
   with TEdit.Create(Self) do
    begin
     Parent := form1;
     Top := ctop;
     Left := cizq;
     Width := 100;
     Name := 'Edit' + inttostr(i);
     Text := 'Dentro Edit ' + inttostr(i);
     ctop:=ctop +(Height+15);
    end;
  end;
end;

[cslbcn]

with TEdit.Create(Self) do

Dice que el Self: Undeclared Indentifier

[tcp_ip_es]

es muy raro que Self no te lo reconozca.... bueno cambialo por el nombre de tu formulario por ejemplo ...

with TEdit.Create(form1) do

[cslbcn]

Excelente! Funciona a la perfeccion!

Muchisimas gracias de nuevo amigo.
Creo que te voy a contratar

[cslbcn]

!!!!!!!
Hola. El código funciona correctamente, pero hoy estaba haciendo el calendario para mas de un mes y me ha salido un error.
Cuando se crean los Edit en el primer mes, los Name de cada cajon se quedan guardados en memoria, entonces cuando selecciono el segundo mes, me sale un error y dice que Edit1 ya existe. Los nombres se quedan grabados y no deja repetirlos.

Esto se puede solucionar liberando la memoria o algo parecido?

[tcp_ip_es]

Logicamente si están creados no puedes crear otros con el mismo nombre. Como realmente no se lo que haces tampoco te puedo orientar.... pero puedes hacer lo siguiente; Buscar el componente si esta creado no lo creas y si no lo está lo creas.

Código Delphi [-]
  
//donde editx es el nombre de tu componente..
if form1.ContainsControl(Tedit(findcomponent('editx'))) then 
 showmessage('está')
else 
 showmessage('no está');

Para destruir un edit pues sencillo....

Código Delphi [-]
form1.controls[x].destroy; // donde x es el número de componente creado