Como declarar una función

[Juan_An]

Posiblemente para muchos de ustedes esta debe ser una pregunta muy estúpida pero bueno, la verdad que es una cosa que no logro entender del todo. Como hago para declarar una función, por ejemplo, esta de acá? Muchas gracias :)

[ecfisa]

Hola Juan_An, bienvenido a Club Delphi :)

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

Declaración de una funcion:

function Nombre_de_Funcion ([Parametros...]) :Tipo_Resultado;

Lo que no está en negrita es opciónal, un ejemplo de declaración (y definición) de función:

function Factorial(Num:Integer): Longint;
begin
if Num = 1 then
Result := 1
else
Result := num * Factorial(Num-1);
end;

El alcance (o scope) de las funciónes, al igual que el de las variables, depende de la posición y la sección en que se las declare.

Tomando en cuenta la posición y de forma somera, se podría decir que todo el código que está debajo de la definición de la función tiene acceso a la misma:

...
Procedure xyz(n:Integer);
begin
Factorial(n); // Error: Factorial no es visible para xyz
end;

function Factorial(Num:Integer): Longint;
begin
if Num = 1 then
Result := 1
else
Result := num * Factorial(Num-1);
end;

function zzz: Longint;
begin
Result := Factorial(5); // Correcto, Factorial visible para zzz
end;

El otro aspecto a tomar en cuenta, es si la declaración de la función se encuentra en la sección de interface(interfaz) o de implementation(implementación) estándo en una Unit (unidad).

Si está en la primera sección, es visible por cualquier codigo que esté por debajo de la inclusión de dicha unidad a su uses(uso):

unit Unit1;

interface
...

function Factorial(Num:Integer): Longint; // Conocida por quien use esta unidad

implementation

function Factorial(Num:Integer): Longint;
begin
if Num = 1 then
Result := 1
else
Result := num * Factorial(Num-1);
end;
end.
//---------------------------------------------------------------
program xxx;

uses ..., Unit1; // Inclusión

begin
Factorial(10); // Correcto
...

De otro modo, si la declaración no está incluída en la interface (y está definida en la sección de implementación), sólo puede ser usada dentro de propia unidad (siempre respetando la posición).

Si no he sido suficientemente claro, no dudes en volver a preguntar.

Saludos. :)

[nlsgarcia]

Juan_An,


...¿Como hago para declarar una función?...


Revisa estos links:

Lenguaje Delphi : http://es.wikibooks.org/wiki/Lenguaje_Delphi

Procedimientos y funciones en Pascal : http://www.marcocantu.com/epascal/Spanish/ch06proc.htm

Function : http://www.delphibasics.co.uk/RTL.asp?Name=Function

Understanding and Using Functions and Procedures : http://delphi.about.com/od/beginners/a/subroutines.htm

The Many Faces of Delphi Routines: Functions and Procedures : http://delphi.about.com/od/objectpascalide/a/delphi-routines.htm

Understanding Recursive Functions : http://delphi.about.com/od/objectpascalide/a/recursion.htm

Understanding and Using Windows Callback Functions in Delphi : http://delphi.about.com/od/windowsshellapi/a/callback_delphi.htm


Lo importante es no dejar de hacerse preguntas

Espero sea útil :)

Nelson.

[cloayza]

Don nlsgarcia...tirese un enlace ahora...:D