Ver Mensaje Individual
  #2  
Antiguo 03-01-2012
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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...
Responder Con Cita