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

[Casimiro Noteví]

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

Código Delphi [-]
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:

Código Delphi [-]
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:

Código Delphi [-]
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.

Código Delphi [-]
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 Noteví]

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 de entre 2 y 4 caracteres.

[Casimiro Noteví]

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.

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:

Código Delphi [-]
...
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:

Código Delphi [-]
var
 F : file of TregFicha;

Un saludo.

[Casimiro Noteví]

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