¿Se puede asignar una cadena de texto a un record?

[Casimiro Notevi]

Hola, me explico con un ejemplo para que sea más comprensible:
Tengo un record con todos los campos de texto.

TregFicha = record
RFcampo1 : string[12];
RFcampo2 : string[40];
RFcampo3 : string[15];
end;

rLinFicha : TregFicha;


Desde un fichero de texto voy leyendo líneas y asignándola para almacenar después en una base de datos:

var
cLinea : string;
F : TextFile;
begin
// se abre el fichero de texto y se va leyendo
// y ahora a leer...
while not eof(F) do
begin
rLinFicha.RFcampo1 := Trim( Copy( cLinea, 1, 12 ) );
rLinFicha.RFcampo2 := Trim( Copy( cLinea, 13, 40 ) );
rLinFicha.RFcampo3 := Trim( Copy( cLinea, 53, 15 ) );
//
// etc..... con todos los campos
//
end;


Entonces mi pregunta es si se puede hacer algo así como:

rLinFicha := cLinea;
Assign(rLinFicha,cLinea);
etc.


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.

[duilioisola]

Si se puede. Solo tienes que definir F como F : file of TregFicha.


TregFicha = record
RFcampo1 : string[12];
RFcampo2 : string[40];
RFcampo3 : string[15];
end;

var
F : file of TregFicha;
rLinFicha : TregFicha;
begin
// se abre el fichero de texto y se va leyendo
AssingFile(F, 'C:\texto.txt');
Reset(F);
// y ahora a leer...
while not eof(F) do
begin
Read(f, rLinFicha);
...
end;


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...

[Casimiro Notevi]

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 :)

[ElKurgan]

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

[duilioisola]

Esta noche estaba pensando lo mismo que ElKurgan.

Puede ser que cada linea termine con #13
Puede ser que cada linea termine con #13#10
Puede ser que el texto esté en unicode y el archivo comience por unos caracteres que conforman el BOM (http://es.wikipedia.org/wi
ki/Marca_de_orden_de_bytes_%28BOM%29) de entre 2 y 4 caracteres.

[Casimiro Notevi]

Pues no sé, la verdad, es un texto normal y corriente, y empieza comiéndose la primera letra de cada línea :confused:
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.

1234567890123PRUEBADETEXTOOCUPANDOTODALALINEACOMPLETAºº
1234567890123PRUEBADETEXTOOCUPANDOTODALALINEACOMPLETAºº
1234567890123PRUEBADETEXTOOCUPANDOTODALALINEACOMPLETAºº

[ecfisa]

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)

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)

Es debido a esa organización que se puede acceder de forma 'directa' a cualquier registro indicando su posición. Además, como bién indica duilioisola, permite almacenar distintos tipos de datos:

...
type
TRegistro = packed record
Nombre: string[30];
Edad: Integer;
Vive: Boolean;
Otro: array [1..5] of char;
end;

var
F: File of TRegistro;
R: TRegistro;


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:

var
F : file of TregFicha;


Un saludo.

[Casimiro Notevi]

Una pena, el fichero es de texto "puro y duro", creado como 'TextFile'.