quiero ordenar en varios edit lo que tengo en un listbox

[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

[ecfisa]

Hola.

Ahora creo entender un poco mejor, entonces el ejemplo que te puse no se aplicaría a este caso.
Si los queres pasar a mano, la opción de Carlos es la correcta ya que se pasarán de acuerdo al órden en que los seleccionaste.

También existe la posibilidad de ahorrarte esa taréa si el formato en que están los datos en el archivo de texto mantiene una secuencia lógica.
Supongamos que los datos fueran tres: nombre, apellido y domicilio. Si los datos en el archivo mantienen ese órden y están separados por ';', como por ejemplo

Juan;Perez;Calle1;Ana;Martinez;Calle2;Pedro;García;Calle3;María;Juarez;Calle4;Jhon;Smith;5thStreet

Podrías hacer:

Código Delphi [-]
const
  NCAMPOS = 3;  // nombre,apellido,domicilio

var
  TS: TStrings;
  NroDato: Integer = 0;  // inicializar NroDato

procedure TForm1.FormCreate(Sender: TObject);
begin
  TS:= TStringList.Create;
  TS.LoadFromFile('C:\SOCIOS.TXT');
  TS.Delimiter:= ';';
  TS.DelimitedText:= TS.Text;
end;

procedure TForm1.btnPasarAEditClick(Sender: TObject);
var
  i: Integer;
begin
  Edit1.Text:= TS[NroDato];
  Edit2.Text:= TS[NroDato+1];
  Edit3.Text:= TS[NroDato+2];
  if NroDato + NCAMPOS < TS.Count then Inc(NroDato,NCAMPOS);
end;

Pero esto sólo si los datos en el archivo cumplen las condiciones que te mencioné arriba.

Saludos.

[vanesa007]

hola a todos... recien hoy me pude conectar para, es que mi trabajo me impide conectarme muy de seguido. bueno.. ya pude arreglar mi problema, leyendo y leyendo se aprende, jajajaja...

bueno mi problema era asi.. en el archivo tengo los nombres de socios del club con datos de elos, datos como donde viven, ubicacion, nuceo familiar, esposa hijos, expedientes realizado en club, expedientes recibidos y emitidos.. y mas datos, bueno... todo esto esta cargado en un archivo WORD, en tablas, pero debido a la maladesorganizacion lo erdenaron en tablas pero desordenados los datos de cada socio, aora se grabo todo en un archivo de texto, cada linea corresponde a un socio, y cada dato esta separado por un PUNTO Y COMA, por una COMA, o un SIMBOLO, lo importantee s que esta separado,

Bueno se carga esos datos en LISTBOX y luego simplemente queda ordenar dato por dato pasando al los edit manualmente, y esto lo solucione con evento ONCLICK de cada edit, asi selecciono el ITEM del LISTBOX y elijo el EDIT donde lo quero despositar, y solucione mi inconveniente

epro.. igual desde ya muchas gracias, a los que s etomaron un tiempillo en acer unas cuantas lienas de codigo para ayudarme, lineas de codigo que ya me las baje y las lleve para anlaizarlas y estudiarlas, las cuales me serivran para otras partes de mi programita..

muchas gracias a todos..