[Consulta] Form`s - Volverlos al estado inicial

[tanaka_reina]

Empezado por Lepe

Aparte de lo comentado por dec, sé que es una pregunta simplona, pero, ¿usaís algún bucle?

Lo normal sería:

Código Delphi [-]
procedure Limpia(T:TWincontrol);
begin
for i:= 0 to t.controlCount-1 do
begin
if controls[i] is TwinControl then Limpia(c)
else if controls[i] is TEdit then TEdit(controls[i]).Clear
else if controls[i] is TDBEdit then TDBedit(controls[i]).Datasource := nil;
end;




Para llamarlo:

Código Delphi [-]
Limpia(Form1);





Habría que estudiarlo un poco mejor, pero creo que se puede hacer.

Saludos

Error en "c" //if controls[i] is TwinControl then Limpia(c) <<< que tipo seria?, para que funcione le puse el nombre del form, y como resultado tengo un overflow..

Es bueno aclarar que no es solo borrar lo que esta en un edit... sino tambien reiniciar todos sus atributos,a el estado cuando se ejecuto inicialmente el programa (ejemplo, enable:=true, color xxx, etc etc). Como me parece mucho hacerlo uno por uno (ademas que corro riesgo de que se me pase por algo algun atributo y me estropee los datos almacenados en la DB).

Thanks