1

El error es el siguiente:

identifier not found TDato2


{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type
    TDato1 = class
        campo1: string;
        campo2: string;

        dato2: TDato2;
    end;

    TDato2 = class(TDato1)
        campo3: byte;
        campo4: string;

        dato1: TDato1;
    end;

implementation

end.

1
  • Estás intentado usar un TDato2 en TDato1 antes de que esté definida
    – Alvaro Montoro
    Commented el 15 jul. 2016 a las 23:02

1 respuesta 1

1

Ya lo resolví, solo tenía que redefinir la clase.


{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type
    TDato2 = class;

    TDato1 = class
        campo1: string;
        campo2: string;

        dato2: TDato2;
    end;

    TDato2 = class(TDato1)
        campo3: byte;
        campo4: string;

        dato1: TDato1;
    end;

implementation

end.

1
  • Lo que haces no se llama re-definir la clase, sino que es una declaración temprana. Esto instruye al compilador sobre tu intención de declarar la clase más adelante, aceptar el identificador, y luego el compilador emitirá un error si no encuentra la declaración completa más adelante.
    – jachguate
    Commented el 21 jul. 2016 a las 21:05

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.