Ver Mensaje Individual
  #4  
Antiguo 26-05-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.112
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Sólo quería añadir que Bicho está declarando e implementando métodos de un objeto, más que funciones, simplemente. Implementar una función puede hacerse dentro de la cláusula "implementation" de una determinada unidad, y, si se quiere que dicha función sea accesible desde fuera de dicha unidad, habría que añadir el prototipo de la función, su declaración, dentro de la cláusula "interface". Algo como esto:

Código Delphi [-]
unit UMiUnidad;

interface

implementation

{ Función no accesible desde fuera de esta unidad
}
function Suma(const a,b: integer) : integer;
begin
  Result := a + b;
end;

end.

O esto:

Código Delphi [-]
unit UMiUnidad;

interface

function Suma(const a,b: integer) : integer;

implementation

{ Función accesible desde fuera de esta unidad
}
function Suma(const a,b: integer) : integer;
begin
  Result := a + b;
end;

end.

Pero, en fin, sigo remitiéndote al curso de Delphi que he mencionado antes y a otros que puedas encontrar. Sólo quería decir que Bicho ha utilizado métodos, que, efectivamente, no dejan de ser funciones, pero, funciones que pertenecen a un objeto.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita