Ver Mensaje Individual
  #1  
Antiguo 03-11-2010
WPascal WPascal is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 26
Reputación: 0
WPascal Va por buen camino
Ayuda con archivos con Tipo

Saludos a todos, estoy aprendiendo el manejo de archivos en Pascal y quize hacer un programita que leyera los datos de un juego de ajedrez y los almacenara en un record para poder guardar la informacion en un archivo con tipo, el problema es que el compilador me da un error que no sé que quiere decir, entonces necesito que me colaboren, qué error estoy cometiendo.
Aqui está el código:

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;
                Anyo:Integer;
    End;
Var
    Partidas: file of TDPartida;   {Este es el Alias, donde tira el error}
    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:'); Read(Juego.Blancas);
            Writeln('Negras:'); Read(Juego.Negras);
            Writeln('Anyo:'); Read(Juego.Anyo);
            Writeln('Resultado:'); Read(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}
        end;
    Close(partidas);

end.

El compilador me tira el error:

[DCC Error] Project1.dpr(14): E2155 Type 'TDPartida' needs finalization - not allowed in file type

De antemano gracias por sus respuestas y su tiempo.
Responder Con Cita