Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Archivo de registro (https://www.clubdelphi.com/foros/showthread.php?t=82657)

Taimado?%%no 29-03-2013 09:19:00

Archivo de registro
 
Hola,soy novato, quiero saber como declarar un archivo de registro como ''ejemplo:TextFile;'' ,que es para un archivo text .
Algo asi:
type
reg=record
xx:integer;
yy:integer;
end;

archi: .. // y aca declara el tipo

disculpen por la pregunta tan novata.Gracias

ecfisa 29-03-2013 13:41:20

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.

Taimado?%%no 29-03-2013 17:04:22

Me funciono muchas gracias!. Te agradezco por los links ;)


La franja horaria es GMT +2. Ahora son las 09:15:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi