Como sería ese PHP en delphi?

[cslbcn]

Hola.
la palabra "self" que aparece el el codigo no la detecta. dice que una expresion no identificada..

[tcp_ip_es]

Self es el nombre del formulario que contiene los elementos de los cuales estamos hablando.

Por si acaso para que no haya confusiones....
Edit.name es el Nombre del objeto
Edit.text es el valor que contiene el objeto

[cslbcn]

es que creo que no me comprendió bien.

Los Edits no están creador inicialmente. A medida que hace el for, van apareciendo los cajones de texto.

En php, para que algo se muestre en pantalla es con "echo". Cual es su equivalente en delphi?

[tcp_ip_es]

el equivalente es sería :

showmessage('Hola Mundo');

o si es el contenido de un edit....

showmessage(Edit1.text)

No se si te comprendemos lo que quieres hacer....

[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