Escribir un Valor en un Edit y Buscarlo en Un archivo TXT
Buenas tardes Amigo tengo la Siguiente Inquietud.
Tengo un archivo de Texto que contiene muchas lineas y cada valor separado por este simbolo "|", Necesito escribir en un Edit el número que aparece al principio "00100235701" Y mostrar en un otros edits los demas datos que pertenecen a este número: Ejemplo: Edit1= JUAN PEREZ PEREZ EDIT2= SERVICIOS PERSONALES EN GENERAL ...... Ejemplo de la Estructura del Archivo, Todos esos datos estan en una línea en el Archivo.: 00100235701|JUAN PEREZ PEREZ||SERVICIOS PERSONALES EN GENERA| | | | |25/0/1999|ACTIVO|NORMAL Muchas Gracias por anticipado por su valiosa ayuda. |
|
hondaalberto,
Cita:
El código anterior lee un archivo TXT en el cual los datos son separados con el carácter "|" en un control TListBox y al pulsar cada item del control (Registros del archivo TXT) los campos son separados y cargados en una variable TStringList la cual almacenara todos los campos del registro para su posterior procesamiento en controles TEdit. Para efectos del ejemplo el archivo tiene solo 4 campos por registro, los cuales son extensibles según se requiera: Cita:
Espero sea útil :) Nelson. |
Hola.
Otra alternativa para obtener un determinado campo:
Lamentablemente algunas versiones antiguas de Delphi (como la que tengo) adolecen de un bug. Y este es, que sea cual fuere el separador especificado, incluye siempre el espacio (' ') como tal, y por tanto no funcionará. Pero aplicando algunas modificaciones que reemplacen los espacios por un caracter que sea inexistente en los datos, se puede lograr "esquivar" el bug:
Llamada de ejemplo (para ambos casos): El argumento InxRetField tiene como cota inferior cero y como superior el número de campos -1 (para tu caso sería 11-1). Saludos. |
La franja horaria es GMT +2. Ahora son las 04:27:20. |
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