Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-11-2010
WPascal WPascal is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 26
Poder: 0
WPascal Va por buen camino
Claro!, yo pensaba que reset era solo para leer/escribir y no para pararse en el principio del archivo (Nuevamente le echo la culpa al libro ). Pero de cualquier manera no tenía por qué meter el Reset en el For, jaja descuidos de principiante.
Gracias Ecfisa por tus siempre efectivas respuestas . Ya me empiezan a gustar más estos archivos de tipo , por cierto, qué opinan de estos archivos, es bueno utilizarlo o son mejores los archivos .ini , porque de estos no he encontrado información útil.

Última edición por WPascal fecha: 05-11-2010 a las 03:41:22.
Responder Con Cita
  #2  
Antiguo 05-11-2010
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
No tenés nada que agradecer, hoy por vos mañana por mi...

Se puede usar Reset dentro de un for, lo que sucede que es de lo más ineficiente ya que abrir y cerrar archivos consume tiempo y recursos.
Te agrego un ejemplo donde se hace y aprovecho a usar otro modo para verificar la existencia del archivo.
Código Delphi [-]
...
begin
  Assign(Partidas,'Resultados de las partidas.chess');
  try
    Reset(Partidas);
  except
    Rewrite(Partidas);
  end;
  Write('cuantos datos de partidas va a ingresar?: ');
  Readln(NEntradas);
  for I := 1 to NEntradas do
  begin
    {$I-}                   // desactivar detección de errores
    Reset(Partidas);        // abrir
    if IOResult <> 0 then   // si no existe
      ReWrite(Partidas);    // crearlo
    {$I+}                   // activar detección de errores
    Write('Blancas:');
    Readln(Juego.Blancas);
    Write('Negras:');
    Readln(Juego.Negras);
    Write('Anyo:');
    Readln(Juego.Anyo);
    Write('Resultado:');
    Readln(Juego.Resultado);
    Seek(Partidas,FileSize(Partidas)); // ir al último registro
    Write(Partidas,Juego);             // guardar
    Close(Partidas);                   // cerrar
  end;
...

Fijate que use el procedimiento Seek para que no sobreescriba los registros.

Saludos.

Última edición por ecfisa fecha: 05-11-2010 a las 04:16:18.
Responder Con Cita
  #3  
Antiguo 06-11-2010
WPascal WPascal is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 26
Poder: 0
WPascal Va por buen camino
Hola Ecfisa, precisamente tenía esa duda en cuanto a que se borraban los anteriores registros pero no le puse mucha atención por el momento porque en el programita que en que estoy trabajando necesito precisamente que se sobreescriba la información cada vez que se escriba en el archivo, pero ya tengo la duda aclarada para cuando necesite que no se borren los anteriores registros (que es lo más común) con la función Seek.
En cuanto a ayudarte yo a tí jaja lo veo difícil.
Pero en un futuro me gustaría por lo menos ayudar a los más novatos, cuando yo ya no lo sea tanto .
Gracias y saludos.
Responder Con Cita
  #4  
Antiguo 06-11-2010
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
Cita:
Empezado por WPascal Ver Mensaje
En cuanto a ayudarte yo a tí jaja lo veo difícil.
Pero en un futuro me gustaría por lo menos ayudar a los más novatos, cuando yo ya no lo sea tanto .
Gracias y saludos.
De nada WPascal.

Pero disiento con vos, yo no veo tán difícil que me puedas ayudar en cualquier momento...

Saludos.
Responder Con Cita
Respuesta



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
Hacer una ayuda tipo Windows (chm) AngelV Varios 3 14-05-2007 08:45:41
ayuda con numeros de tipo flotante vero_17jm SQL 3 07-12-2006 14:06:51
Ver lista de archivos tipo ftp JMGR Internet 15 15-11-2005 20:13:42
Ayuda tipo Web torito Varios 2 30-08-2005 17:10:25
Ayuda Con Instalacion De Archivos De Ayuda Legolas Varios 1 01-12-2003 14:48:03


La franja horaria es GMT +2. Ahora son las 01:54:59.


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