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
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');
Write('cuantos datos de partidas va a ingresar?: '); Readln(NEntradas);
for I := 1 to NEntradas do
begin
Writeln('Blancas:'); Readln(Juego.Blancas);
Writeln('Negras:'); Readln(Juego.Negras);
Writeln('Anyo:'); Readln(Juego.Anyo);
Writeln('Resultado:'); Readln(Juego.Resultado);
if not FileExists('Resultados de las partidas.chess') then
Rewrite(Partidas);
Reset(Partidas);
Write(Partidas,Juego);
Close(partidas);
end;
end.
Nuevemante gracias de antemano
Saludos.