FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
¿Se puede asignar una cadena de texto a un record?
Hola, me explico con un ejemplo para que sea más comprensible:
Tengo un record con todos los campos de texto.
Desde un fichero de texto voy leyendo líneas y asignándola para almacenar después en una base de datos:
Entonces mi pregunta es si se puede hacer algo así como:
Se trata de ahorrar tiempo y principalmente de no tener que estar calculando donde empieza un campo y el siguiente, para evitar errores. Además por si cambia la longitud de un campo, o se añada otro en medio, o se borra alguno, etc. no habría que tocar nada, porque de esta forma hay que recalcular todo a mano. Gracias por vuestros comentarios. Saludos. |
#2
|
||||
|
||||
Si se puede. Solo tienes que definir F como F : file of TregFicha.
Solo debes hacer la prueba con campos numéricos, porque no recuerdo como los grababa... Tampoco recuerdo bien si era Read o ReadLn. Creo que era Read. También puedes utilizar la función Seek para posicionarte y esas cosas. Está todo en el help de Delphi. Esto me lo acuerdo de mis tiempos de TurboPascal... Qué facil que era todo en esa época... |
#3
|
||||
|
||||
Pues en principio funciona bien, aunque no sé el motivo de que se "coma" la primera letra de cada línea y luego va "descuadrándose", supongo que no he puesto la longitud correcta a algún campo.
Voy a seguir probando, gracias |
#4
|
||||
|
||||
Tienes que tener en cuenta el retorno de carro, si lo tiene. Yo en ocasiones he añadido un campo más de 1 caracter de longituc, para que coja el CRLF como un caracter más
No se si esto te puede ayudar Saludos |
#5
|
||||
|
||||
Esta noche estaba pensando lo mismo que ElKurgan.
|
#6
|
||||
|
||||
Pues no sé, la verdad, es un texto normal y corriente, y empieza comiéndose la primera letra de cada línea
Lo he verificado con un editor hexadecimal y no hay caracteres de control, salvo el crlf del final de línea. Es un texto bastante "limpio", en fin, haré otras pruebas. Código:
1234567890123PRUEBADETEXTOOCUPANDOTODALALINEACOMPLETAºº 1234567890123PRUEBADETEXTOOCUPANDOTODALALINEACOMPLETAºº 1234567890123PRUEBADETEXTOOCUPANDOTODALALINEACOMPLETAºº |
#7
|
||||
|
||||
Hola.
En un archivo de acceso directo los registros son contiguos y está definido exáctamente la longitud de cada registro. Los primeros cuatro bytes del primer sector del archivo de acceso aleatorio contiene el número de registros existentes y el largo de cada registro en bytes. (Este formato corresponde a Pascal, puede haber variado en tamaño en Delphi) Código:
Sector | Byte | Contenido -------+------+--------------------------- 0 | 0 | Numero de registros (LSB) 0 | 1 | Numero de registros (MSB) 0 | 2 | Longitud de registro (LSB) 0 | 3 | Longitud de registro (MSB)
A diferencia, los archivos de texto son una secuencia de caracteres dividido en líneas mediante la secuencia CR/LF y finalizan con Ctrl+Z. Es por esto que veo difícil que resulte hacer un cast sobre el archivo secuencial. Por supuesto no habría ningún problema si el archivo a leer hubiera sido previamente guardado como tipado:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#8
|
||||
|
||||
Una pena, el fichero es de texto "puro y duro", creado como 'TextFile'.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ibdataset no me deja asignar cadena... | ronimaxh | Firebird e Interbase | 1 | 16-10-2010 17:33:43 |
Asignar 'array property' con record.elemento | yapt | OOP | 6 | 13-05-2010 21:16:05 |
¿Existe función para asignar a una cadena el resultado de concatenarla con otra? | noob | Varios | 8 | 13-02-2009 19:34:53 |
Tipos Strings: no puedo asignar una cadena de mas de 255 caracteres | bataola | Varios | 2 | 29-06-2007 18:34:37 |
Asignar una cadena al QRDBtext | lirio | Impresión | 2 | 03-06-2003 21:30:15 |
|