Tengo la siguiente clase, definida en la "unit2.pas"
unit Unit2; interface type TEmpleado = Class Constructor Create; Destructor Destroy;override; Private FNombre: String; FApellido: String; Procedure SetNombre (Value: String); Procedure SetApellido (Value: String); Published Property Nombre: String Read FNombre Write SetNombre; Property Apellido: String Read FApellido Write SetApellido; end; implementation procedure TEmpleado.SetNombre (Value: string); begin FNombre:=Value; end; procedure TEmpleado.SetApellido (Value: string); begin FApellido:=Value; end; Constructor TEmpleado.Create; begin inherited Create; end; Destructor TEmpleado.Destroy; begin inherited Destroy; end; end.
y la definición de otra clase, en la "uclassModelo.pas"
unit uclassModelo; interface uses unit2; type TClassModelo = class Public function GetDatos:TEmpleado; end; implementation function GetDatos:TEmpleado; var objEmpleado:TEmpleado; begin objEmpleado.Create; result:=objEmpleado; end; end.
Al realizar la compilación, me muestra el siguiente error:
[DCC Error] uclassModelo.pas(11): E2065 Unsatisfied forward or external declaration: 'TClassModelo.GetDatos'
Creo que tengo deficiencias en OOP con respecto al lenguaje Pascal (por falta de práctica y uso) ,
¿Qué estoy haciendo de forma incorrecta?
Saludos