Programación General > Delphi
Llenar Un Arreglo
Perrero:
Holas, weno he aqui mi duda. Tengo en un formulario 81 TMemos y me gustaria meter por teclado los datos en esos 81 TMemos, ahora cuando le de clic a un boton me gustaria que recogiera todos los datos introducidos en los TMemos. Mi pregunta es si hay una manera sencilla de hacerlo, quiero que esos datos vayan a un arreglo, pero solo conozco la manera mas inocente y tediosa de hacerlo, como esta:
--- Código: Text --- Arreglo[i,j]:= Memo1.Text; Arreglo[1,1]:= Memo1.Text; Arreglo[1,2]:= Memo2.Text; . . . Arreglo[9,9]:= Memo81.Text;
Esta es la manera mas tediosa de hacerla, hay una manera de llenar el arreglo de una manera mas sencilla con los datos del TMemo?.
Enko:
¿Probaste usar TStringList? ;)
--- Citar ---La propiedad "Cells" del TStringList es una matriz.
TStringGrid.Cells[X,Y]: String;
--- Fin de la cita ---
Me parece un poco tedioso usar 81 TMemos cuando tenes el TStringGrid, y se ese no te resulta, seguramente podes adaptar al TDrawGrid que es más genérico.
Avisame, si necesitas si o si los Tmemo me fijo (es que ahora no tengo delphi a mano para revistar y no me acuerdo bien como es, es que hay varias formas....)
Perrero:
Mmmmmmmmmmmm en realidad no paso por mi cabeza usar esos componentes ya que no los conozco, pero estuve revisando el TStringGrid y no tiene una propiedad que tiene el TMemo que es la de MaxLenght, otra cosa es que en el OnKeyPress pongo el codigo para escribir solo numero y no sale, otra cosa es que no me gusta el cuadrito azul cuando seleccionas, mmmmmm bueno, lo podria usar si por lo menos supiera saber como meter solo numeros y solo una cierta cantidad de caracteres, voy a investigar a ver si se puede.
Enko:
¿Que cantidad de caracteres?
Perrero:
bueno solo quiero un caracter por celda y ademas me di cuenta que no puedo introducir datos por teclado en cada celda o esuqe acaso hay una propiedad q activa eso, pero weno con las que voy probando no pasa nada.
Navegación
[#] Página Siguiente
Ir a la versión completa