Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-03-2013
Taimado?%%no Taimado?%%no is offline
Registrado
NULL
 
Registrado: mar 2013
Posts: 2
Poder: 0
Taimado?%%no Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 29-03-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 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
  #3  
Antiguo 29-03-2013
Taimado?%%no Taimado?%%no is offline
Registrado
NULL
 
Registrado: mar 2013
Posts: 2
Poder: 0
Taimado?%%no Va por buen camino
Me funciono muchas gracias!. Te agradezco por los links
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
pasar un registro completo a un archivo txt pmtzg Firebird e Interbase 1 16-08-2011 09:50:13
Modificar registro en archivo binario tamarinda C++ Builder 3 06-03-2008 22:01:20
Eliminar registro en archivo binario tamarinda C++ Builder 2 06-03-2008 21:59:25
Guardar registro en archivo Txt Nbull Conexión con bases de datos 2 10-02-2006 14:19:04
Localizar Archivo y Registro alcides Varios 5 19-05-2005 16:51:51


La franja horaria es GMT +2. Ahora son las 08:33:39.


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
Copyright 1996-2007 Club Delphi