limpiar text en edit
Hola a todos y perdorar mi ignorancia.
Tengo 10 edit y en ejecucion quiero borrar la propiedad text de todos. Es posible hacerlo con algún bucle para no repetir el mismo codigo para los 10 var contador: integer; for contador:=1 to 10 do form1.edit+contador.text:=' ' ; me da error Gracias anticipadas |
lo primero que tienes que ver es ¿que estas haciendo con form1.edit+contador.text:=' ' ;?
Una forma de hacer lo que buscas es, saber que todo Tcomponent tiene una lista de components que posee. El Form es un Tcomponent y por lo tanto, todo componente que pegas en el está en esa lista. Se accede por medio de la propiedad Components. Hay otra que te da cuantos hay, componentCount. Ejemplo: Procedure TForm1.LimpiaEdits; var I: Integer; begin for i := 0 to ComponentCount -1 do if Components[i] is TEdit then TEdit(Components[i]).Text := ''; end; Esto debe funcionarte, salvo fallos de sintaxis. |
Muchas gracias.
|
También puedes utilizar el método Clear. A mi parecer queda mas prolijo.
Saludos! |
hola viejo yo tbm necesito una ayuda, tengo un proyecto de hacer una calculadora basica, y utilize 10 botones para los numeros del 0-9, luego 4 botones para los operadores y un EDIT para que se pueda visualizar los numeros alli...
keria saber como puedo programar por ejemplo el boton de SUMA que me haga que cuando aga click alli se pueda borrar lo que haya en el edit y pueda colocar el siguiente numero con el que kiero aser una suma y lo que se borro antes en el edit guardarlo en una variable q espere el siguiente numero qeu coloke despues, osea kisiera que tenga la misma funcion q la calculadora normal que tiene windows por defecto.. saludos y grasias :) |
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)
|
La franja horaria es GMT +2. Ahora son las 09:17:59. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi