Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema con ListBox (https://www.clubdelphi.com/foros/showthread.php?t=7267)

Delphos 10-02-2004 13:57:30

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;

Y Otro que carga el contenido del archivo en un Listbox

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;

Pues resulta que en el listbox donde cargo la informacion aparece el contenido del archivo en filas como deberia de estar

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.

delphi.com.ar 10-02-2004 14:13:59

¿Y porqué no utilizas los métodos?
Código:

ListBox1.Items.LoadFromFile(..);
ListBox1.Items.SaveToFile(..);


Delphos 10-02-2004 16:30:32

Antes de nada muchas gracias por responder.

Con respecto a

Cita:

¿Y porqué no utilizas los métodos?
Código:
ListBox1.Items.LoadFromFile(..);
ListBox1.Items.SaveToFile(..);
No utilizo esos metodos porque no quiero que se cargen todos los datos del archivo sino solo los que cumplen la condicion de que sean de mas de un caracter como expecifico en la linea "If Longitud > 1 then" .

Un saludo.

Delphos 10-02-2004 17:18:39

Asunto solucionado


La franja horaria es GMT +2. Ahora son las 14:28:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi