quiero ordenar en varios edit lo que tengo en un listbox

[vanesa007]

* tengo varios edit, un boton y un listbox con palabras
* hay tantos edit como palabras en el listbox
* luego de seleccionar una palabra en lisbox, presiono el boton y paso esa palabra al edit, y asi voy seleccionando palabra y pasando a los edit,a sta que no ayan mas palabras en el listbox

la pregunta es.. como puedo acer esto con un solo boton, opr que podria poner un boton para cada edit, pero quiero aorrarme esos botones y acerlo con uno solo..

desde gracias al que pueda resolverme

[ecfisa]

Hola Vanesa007.

Código Delphi [-]
procedure TForm1.btnPasarClick(Sender: TObject);
var
  i,c: Integer;
begin
  c:= 0;
  for i:= 0 to ControlCount-1 do
    if Controls[i] is TEdit then
    begin
      TEdit(Controls[i]).Text:= ListBox1.Items[c];
      Inc(c);
    end;
end;

Saludos.

[vanesa007]

hola amigo, muchas gracias por su pronta respuesta, peor sigo con problema, se debe a mi escaso conocimiento programacion..... me juega en contra de lo que pretendo acer... no entiendo mucho las lineas que me paso, las copie agruegue un listbox, unos edit y boton, puse ese codigo en el boton, pero no me anda, me aparece un mensage de error de ARRAY TYPE REQUERIDO...

[ecfisa]

Hola.

Te adjunto un ejemplo para que puedas revisar el funcionamiento con tranquilidad.

Saludos.

[vanesa007]

si... bien, desde gracias.. gracias y gracias por tomarce tiempo en ayudarme, peor.. es algo asi como lo que trate de acer, por ejemplo..
en ejemplo que me amndo....


* los dias estan desordenados.. bien asi
* con BOTON elijo LUNES, presiono boton Y lo amndo al EDIT1.. que seria el edit para dia LUNES
* luego elijo el MARTES presiono BOTON y lo paso al EDIT2 que corresponderia para el dia martes
y asi sucesivamente... asta pasar el ultimo dia que esta en listbox, DOMINGO al ultimo edit que hay

Le comento para que es... mas adelante.. mientras estoy continuando con estudio de programacion, are una base datos. para almacenar datos personales de socios de un club, los datos personales de estas personas estan en archivos de texto, empesando todos ello por su nombre o en otros casos apellido, luego demas datos como ser domicilio, estado civil, que tipo de trabajo tiene, si es casado, separado soltero viudo, hijos que tiene, nombre de ellos, nombre de padres y madre, donde nacio lugar fehca hora, Tramites que realizo en club... y mas... cada uno esta separado por un punto y coma

Todo en archivo texto, y cada datoe sta desordenado respecto a otra persona, es por ello que estroy aciendo un programita, que me abre este archivo, lee la primer linea de datos, y me los coloca en un listbox, cada dato personal esta separado por coma, punto y coma, o dos puntos, pero en fin... estan separados, y luego viene la etapa de ordenar segun un orden especifico...

* nombre
*apellido
*domicilio
*fecha en que nacio
*pais
*provincia
*...
...
*...
*...
* cantidad tramites que realizo
*********** tramite 1
*********** tramite 2
*********** tramite...
*********** tramite...


y asi sucecivamente, hay aprtes que ya me imagino como acer, pero otras no... despacito despacito ire aciendo esto para usarlo en mi trabajo y alivianarme mas las tareas....

es para esta parte que quiero... asi ordeno los datos de una eprsona que estan en una linea, y colocarlos en una ficha o registro....

la amnera que le expuse es la forma que se me ocurrio, es largo el tema, para ordenar cada linea, siemdo que hay mas de 400 personas, osea 400 lineas en el archivo de texto

supongo que me pude expresar bien mi idea...

pero igual.. muchas gracias por su tiempo

[[Caral]]

Hola
Coloca en el listbox multiselect = true.
En un boton:

Código Delphi [-]
var
  i, n:Integer;
  comp:TComponent;
begin
  for i := 1 to 9 do begin // diez edits
  comp := FindComponent('Edit' + IntToStr(i+1));

  for n:= 0 to Listbox1.Items.Count  do
  begin
  if ListBox1.Selected[i] = true then
  TEdit(comp).Text:= listbox1.Items[i];
  end;
  end;

Saludos