Ayuda con archivos con Tipo

[ecfisa]

Hola.

Si, es así roman.

En realidad Tubo Pascal sólo definía el tipo de datos string, que como bién decis tenía un tamaño fijo de 256 bytes. Donde en la posición 0 del arreglo de caracteres se guardaba la longitud de la cadena almacenada. Es por eso que se podía utilzar Ord(s[0]) en lugar de la función Length.

El tipo ShortString es un nombre dado ya por Delphi al antiguo string de Pascal para diferenciarlo del AnsiString que trata las cadenas al modo
del lenguaje C.

De ahí que Delphi no pueda determinar a que tipo nos referimos y por lo tanto su longitud, como sucede en el caso de arriba. A no ser, claro, que se le indique al compilador como debe interpretarlas con una directiva.

Saludos.

[WPascal]

Hola luego de resolver el problema del enlace me he dado cuenta de otro problema; por ejemplo, quiero ingresar tres registros, se supone que me deberían quedar guardados en el archivo con tipo, pero lo que hace el programa es reemplazar el registro anterior por el nuevo, he mirado el código pero no encuentro la falla, pues se supone que la función Reset abre el archivo para lectura/escritura no para sobreescribirlo, aquí les dejo el código para ver si me pueden ayudar qué estoy omitiendo.

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
    TDPartida = Record                               {Creo El tipo Record TDPartida
                                                      con datos blancas,negras,anyo y resultado }
                Blancas,Negras,Resultado:String[40];
                Anyo:Integer;
    End;
Var
    Partidas: file of TDPartida;   {Este es el Alias}
    Juego:TDpartida;                {En la variable juego guardo la informacion}
                                     {que pasaré al archivo}
    NEntradas,I:Integer;
    {NEntradas es la cantidad de veces que se vana ingresar registros}
begin
    Assign(Partidas,'Resultados de las partidas.chess');
    Write('cuantos datos de partidas va a ingresar?: '); Readln(NEntradas);
    for I := 1 to NEntradas do  {Aqui pido los datos segun el valor de NEntradas}
        begin
            Writeln('Blancas:'); Readln(Juego.Blancas);
            Writeln('Negras:'); Readln(Juego.Negras);
            Writeln('Anyo:'); Readln(Juego.Anyo);
            Writeln('Resultado:'); Readln(Juego.Resultado);

            {Pregunto si el archivo existe}
            if not FileExists('Resultados de las partidas.chess') then
                      Rewrite(Partidas);
                Reset(Partidas);  {pongo el archivo en modo escritura}
                Write(Partidas,Juego); {escribo en el archivo la informacion del record}
                Close(partidas);
        end;


end.

Nuevemante gracias de antemano
Saludos.

[ecfisa]

Hola WPascal.

Reestructuré un poco tu código.
En tu ejemplo el archivo se debe abrir, realizar las operaciones y luego cerrar.
Lo que estabas haciendo es reescribir siempre el primer registro. Al hacer Reset(Partidas) dentro del ciclo, en cada ingreso el archivo se abre y el puntero se posiciona en el primer registro y allí se guarda.

Verifiqué la existencia del archivo, con try/except, para que veas otra forma de hacerlo.

Código Delphi [-]
program Project1;{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TDPartida = record
    Blancas,Negras,Resultado:String[40];
    Anyo:Integer;
  end;
var
  Partidas: file of TDPartida;
  Juego:TDpartida;
  NEntradas,I:Integer;
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
    Write('Blancas:');
    Readln(Juego.Blancas);
    Write('Negras:');
    Readln(Juego.Negras);
    Write('Anyo:');
    Readln(Juego.Anyo);
    Write('Resultado:');
    Readln(Juego.Resultado);
    Write(Partidas,Juego);
  end;
  Close(Partidas);
end.
end.

Saludos.

[WPascal]

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.

[ecfisa]

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.

[WPascal]

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.

[ecfisa]

Empezado por WPascal

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.