Cita:
Empezado por donpedro
He intentado hacerlo con IF pero seria muchas condiciones. Apelo a ustedes para ver de que otra forma se podria hacer.
|
Lo primero es poner nombres "adecuados" a los controles TEdit que hay en el formulario.
Lo segundo es, que como biien dices, intentar hacerlo copn IF te dará un número de condiciones muy grande (inviable).
Puedes acceder a un componente utilizando su nombre utilizando algo similar a lo siguiente:
Código Delphi
[-]
var
edt:tedit;
begin
...
edt := FindComponent('edit1');
edt.Text := '111';
Si combinas esto con un bucle
FOR y los índices correctos, podrás acceder a todos los Edits.
No se si me he explicado. Si es que no coméntalo y te podemos añadir un ejemplo más explicativo.