Ver Mensaje Individual
  #2  
Antiguo 29-03-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Taimado?%%no, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Lo que describes arriba, en realidad no es un archivo de texto, sino un archivo con tipo. Te pongo un ejemplo con las operaciones básicas:
Código Delphi [-]
program Project2; {$APPTYPE CONSOLE}

uses SysUtils;

type
  TRegistro = record
    xx: Integer;
    yy: Integer;
  end;

var
  RFile    : file of TRegistro;
  Reg1,Reg2: TRegistro;

begin
  AssignFile(RFile, 'C:\PRUEBA.DAT'); // Darle un nombre
  try
    Reset(RFile);  // Intentar abrir para lectura
  except  // Error, no existe
    Rewrite(RFile); // Entonces crearlo
  end;
  Reg1.xx := 5;   // Darle unos valores a Reg1
  Reg1.yy := 21;
  Write(RFile, Reg1); // Guardarlo
  Seek(RFile,FileSize(RFile)-1); // Ultimo guardado
  Read(RFile, Reg2);  // Leer valores en Reg2
  CloseFile(RFile);   // Cerrar RFile
  Writeln(Reg2.xx,' ',Reg2.yy); // Mostrar valores Reg2
  Readln;
end.
Te aconsejo revisar mas profundamente las funciones, por ejemplo aquí

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita