FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con ListBox
Hola foro
Resulta que tengo dos procedimientos: Uno que graba el contenido de un Listbox en un fichero de texto Código:
Procedure GrabarServicios; var F : TextFile; begin //frmPrincipal.lstServicios.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'Servicios.dat'); AssignFile(F,ExtractFilePath(Application.ExeName)+ 'Servicios.dat'); ReWrite(F); WriteLn(F,frmPrincipal.lstServicios.Items.Count); WriteLn(F,frmPrincipal.lstServicios.Items.Text); CloseFile(F); end; Código:
Procedure CargarServicios; var F : TextFile; Linea: String; Longitud : Integer; begin { If FileExists(ExtractFilePath(Application.ExeName)+ 'Servicios.dat') Then frmPrincipal.lstServicios.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'Servicios.dat'); } If FileExists(ExtractFilePath(Application.ExeName)+ 'Servicios.dat') Then begin AssignFile(F,ExtractFilePath(Application.ExeName)+ 'Servicios.dat'); Reset(F); frmPrincipal.lstServicios.Items.Clear; While Not EOF (F) do begin ReadLn(F,Linea); Longitud := Length(Linea); If Longitud > 1 then frmPrincipal.lstServicios.Items.Add(Linea); end; CloseFile(F); end; end; dato1 dato2 dato3 ...... Pero en realidad lo trata como si todo fuese un mismo elemento ya que cuando selecciono un elemento de este listbox para pasarlo a otro lo que me pasa es esto dato1 simbolo dato2 simbolo dato3 simbolo ... El simbolo es como un salto de linea o de terminacion de texto no lo se con exactitud es parecido a " pero mas grande y grueso. Pues la pregunta es que puedo hacer para que los elementos se cargen en el Listbox como elementos individuales y no lo trate todo como si fuese uno. Muchas Gracias de Antemano. Salu2. |
#2
|
||||
|
||||
¿Y porqué no utilizas los métodos?
Código:
ListBox1.Items.LoadFromFile(..); ListBox1.Items.SaveToFile(..);
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Antes de nada muchas gracias por responder.
Con respecto a Cita:
Un saludo. |
#4
|
|||
|
|||
Asunto solucionado
|
|
|
|