Como sería ese PHP en delphi?

[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

[cslbcn]

mirar si está creado no serviría porque siempre detectaría que edit1 hasta edit31 existe y haría más codigo.

Me decanto más por la destruccion del edit. Pero donde pones "x" es el numero de componente, si es edit1, pongo: form1.controls[edit1].destroy; no?

[tcp_ip_es]

No, x es el número por orden de creación del componente. aunque si quieres también puedes utilizar lo siguiente:

Código Delphi [-]
form1.findcomponent('editx').destroy;

Dónde editx es el nombre del componente a destruir. Ya me dirás como te va....

[cslbcn]

mmmm, que falla?

Código Delphi [-]
for i:=1 to 29 do
begin
    form1.findcomponent('edit + inttostr(i)').destroy;

[...]

[tcp_ip_es]

Código Delphi [-]
for i:=1 to 29 do
begin
    form1.findcomponent('edit' + inttostr(i)).destroy;

[...]

[cslbcn]

mm vale, era otra cosa.
Funciona bien, ahora tengo que controlar que si no hay ningun edit creado que no me haga el destroy porque si no no va.
Recibirás noticias mias.. jeje

Gracias!

[rgstuamigo]

Amigo debe ser asi::
for i:=1 to 29 do
begin
form1.findcomponent('edit' + inttostr(i)).destroy;

[...]

[cslbcn]

si, ya lo conseguí. gracias