![]() |
Problemas al cargar el contenido de un fichero en un ListBox
Hola Foro.
¿Alguien me puede decir porque no me carga el contenido de un fichero en el listbox? Procedure CargarServicios; var F: TextFile; Linea: String; begin If FileExists(ExtractFilePath(Application.ExeName)+ 'Servicios.dat') Then begin AssignFile(F,ExtractFilePath(Application.ExeName)+ 'Servicios.dat'); Reset(F); While Not EOF (F) do begin ReadLn(F,Linea); frmPrincipal.lstServicios.Items.Text := Linea; end; CloseFile(F); end; end; El listbox se encuentra situado dentro de un PageControl en TabSheet1 y dentro de GroupBox1 , lo curioso es que es que le he puesto un ShowMessage(Linea), y me va mostrando las lineas del fichero pero estas no se cargan en el ListBox, tambien he comprobado que este no tuviese alguna instruccion que borrase su contenido tipo lstServicios.items.clear despues de ejecutar el procedimiento CargarServicios. Bueno pues eso es todo, muchas gracias por adelantado. Salu2. |
has probado algo como
Código:
ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'Servicios.dat'); |
Muchas Gracias Cadetill por tu respuesta.
El unico inconveniente de la forma que expones es que te carga todas las lineas del fichero, pero como podria excluir la carga de alguna linea en el ListBox arreglo a una condicion y que esta permaneciera en el fichero. Salu2. |
Código:
While Not EOF (F) do Cita:
Saludos |
Muchas gracias por tu respuesta Lepe asunto solucionado
|
La franja horaria es GMT +2. Ahora son las 04:39:29. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi