|
hola de nuevo lafourcade,
Como aporte te comento que puedes "mejorar" tu codigo de limpieza de TEdits haciendo algo como:
for i := 0 to form1.ComponentCount - 1 do
if form1.Components[i] is TEdit then
(form1.Components[i] as TEdit).Text := '';
Lo anterior se explica asi:
Linea 1) Recorres con un for la lista de componentes de tu formulario (Form1 o como se llame)
Linea 2) Evaluas si el componente es un TEdit
Linea 3) Si cumple con la condición entonces cambias la propiedad text del componente: text:=''
o como en tu caso ejecutas un metodo Clear (Self.Components[i] as TEdit).Clear
Si no quieres borrar TODOS los controles TEdit, si no solamente una parte de ellos podrias valerte d ela propiedad Tag que tienen todos los controles, asi:
Para cada TEdit que tengas que limpiar, busca en el Object Inspector la propiedad Tag, que por defecto estará en cero y cambiala por cualquier valor, por ejemplo 3.. y modificas el codigo anterior con:
for i := 0 to form1.ComponentCount - 1 do
if form1.Components[i] is TEdit then
if (form1.Components[i] as TEdit).Tag = 3 then
(form1.Components[i] as TEdit).Text := '';
Por otro lado "me preocupa" que tengas un componente llamado Edit83... eso quiere decir que muy probablemente tu pantalla este llena de Edits y seria bueno que replantearas usar otro componente como un DbGrid, o un stringGrid para una captura masiva de datos... bueno no concemos tu codigo pero si nos comentas como es tu pantalla, (y si nos queda tiempo) te asesoramos...
un saludo,
|