FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|