7 respuestas en este tema

[jdepaz]

Hola y saludos a todos:

Tengo la siguiente clase, definida en la "unit2.pas"

delphi

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"

delphi

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:

delphi

[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

[seoane]

A simple vista, yo diría que el nombre de esta función:

delphi

function GetDatos:TEmpleado;

deberia ser este otro:

delphi

function TClassModelo.GetDatos:TEmpleado;

[Wilson]

A primera vista, lo que encuentro mal sería esto:

delphi

function GetDatos:TEmpleado;
var
  objEmpleado:TEmpleado;
begin
   objEmpleado.Create;
   result:=objEmpleado;
end;

Que deberías cambiarlo por esto:

delphi

function GetDatos:TEmpleado;
begin
   result:=TEmpleado.Create;
end;

Pero ojo que me quedan muchas dudas y cabos sueltos, por ejemplo ¿ Quien destruye todas las estancias de TEmpleado creadas a partir de la función GetDatos?

Aunque desconozco tus necesidades, yo creo que es más limpio y seguro crear una variable de TEmpleado cada que se ofrezca, realizar el proceso y finalmente liberarla, por ejemplo:

delphi

procedure HacerAlgoConTEmpleado;
var
ObjEmpleado : TEmpleado;
begin
 ObjEmpleado := TEmpleado.Create;
  try
   //Hacer cosas con el empleado
  finally
   ObjEmpleado.free
  End;

Ahora si lo que necesitas es mantener una referencia global de una estancia de TEmpleado, bastaría en tu unit, crear un campo FEmpleado y asignarle un empleado en especial  cada que se te ofrezca, así tienes acceso permanente a un objeto de dicha clase.

Saludos.

[Delphius]

La respuesta correcta es la suma se Seoane y Wilson 

Cuando uno declara un método en una clase hace algo:

delphi

TMiClase = class
public
  procedure MiMetodo(Param: integer);
end;

Pero al momento de implementar es así:

delphi

procedure TMiClase.MiMetodo(Param: integer);
begin
 
end;

Justamente ese es uno de tus errores. Delphi te hace más fácil la vida y tiene una "macro" que te hace justamente la implementación de tus métodos. Una vez que defines las clase pulsa Crtl+Shift+C y gualá... en implementation tendrás la implementación de cada método. Solo te resta disponer el código dentro y declarar las variables que sean necesarias.

El otro error está en no hacer la construcción como debe:

delphi

MiObjecto := TMiClase.Create;

Estos dos errores me dicen que antes estuviste en JAVA. ¿Puede ser? 

Saludos,

[poliburro]

delphi

[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

Lo que sucede es que no estas implementando correctamente el método GetEmpleado. Cómo dice seoane su implementación debe ser:

delphi

function TClassModelo.GetDatos:TEmpleado;

[jdepaz]

Gracias a todos,

Efectivamente, esta es la forma correcta (aunque el objeto dentro de la función tiene que tratarse de la forma correcta)

delphi

unit uclassModelo;
 
interface
 
uses
    unit2;
 
  type
    TClassModelo = class
    Public
      function GetDatos:TEmpleado;
    end;
 
implementation
 
function TClassModelo.GetDatos:TEmpleado;
var
  objEmpleado:TEmpleado;
begin
   objEmpleado.Create;
   result:=objEmpleado;
end;
 
end.

y con respecto:

Estos dos errores me dicen que antes estuviste en JAVA. ¿Puede ser? 

Estas equivocado Chaparron, por cuestiones laborales, estoy en C++ y .Net, en Delphi tengo pocos desarrollos.

Actualmente estoy haciendo un ejercicio para implementar el Modelo Vista Presentador en Delphi.

Saludos

[Sergio]

El código último que das sigue mal, por tu comentario creo que ya lo sabes, pero aclaro la diferencia entre las dos formas de usar el create, y las dos compilan sin error:

Forma "normal":

delphi

objEmpleado:= TEmpleado.Create;

Esta es la que necesitas: crea el objeto y mete la referencia en tu variable.


Forma "rara":

delphi

objEmpleado.Create;

Esta forma es "rara": supone que objEmpleado YA fue creado, pero que quieres "resetearlo" llamando de nuevo al procedure constructor, para el caso en que el constructor haga algún tipo de reinicialización que pueda ser repetido a mitad del proceso.

Se usa poco pero puede ser útil: si ademas de crear el objeto y iniciar sus sub-objetos luego haces un monton de cosas en tu create, puedes dejarlo preparado para poderse usar de esta forma detectando que los sub-objetos ya fueron creados -yo uso un flag boolean que fijo a true tras el primer create, como los boolean se crean a false tengo un control sobre si es la primera o la segunda vez que llamo al create- y saltarte esa parte y hacer solo la inicialización.

Es equivalente a que tu create haga la incialización "normal" y luego llame a un "create2", de forma que luego cuando quieres resetear el objeto llamas a objeto.create2 en lugar de objeto.create, con este truco "empaquetas" ambas cosas en un único create.

[Delphius]

Estas equivocado Chaparron, por cuestiones laborales, estoy en C++ y .Net, en Delphi tengo pocos desarrollos.

Vaya, generalmente los que han estado en JAVA son lo que habitualmente cuando quieren migrar a Delphi les ha costado más acostumbrarse. Y dos de los errores típicos que a los que suelen enfrentarse son justamente a los que te has visto en tu código.

Tal como ha dicho Sergio, sigue estando mal... no estas creando apropiadamente el objeto. El compilador no reniega puesto que es válido hacer Obj.Create pero no es la forma más habitual y para que funcione se asume que efectivamente existe un objeto previamente creado. O es que se te olvidó o no estás prestando demasiada atención a nuestros comentarios.
Por otro lado no es necesario disponer de una variable para el método GetDatos. Ya dispones de result:

delphi

function TClassModelo.GetDatos: TEmpleado;
begin
  result := TEmpleado.Create;
end;

Saludos,