PDA

Ver la Versión Completa : Archivo de registro


Taimado?%%no
29-03-2013, 09:19:00
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 (http://www.clubdelphi.com/foros/guiaestilo.php).

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:

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í (http://www.delphibasics.co.uk/)

Saludos.

Taimado?%%no
29-03-2013, 17:04:22
Me funciono muchas gracias!. Te agradezco por los links ;)