Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-06-2013
Juan_An Juan_An is offline
Registrado
 
Registrado: jun 2013
Posts: 1
Poder: 0
Juan_An Va por buen camino
Question Como declarar una función

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
Responder Con Cita
  #2  
Antiguo 07-06-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.875
Poder: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Juan_An, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Declaración de una funcion:
Código:
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:
Código Delphi [-]
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:
Código Delphi [-]
...
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):
Código Delphi [-]
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 07-06-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 14
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Juan_An,

Cita:
Empezado por Juan_An
...¿Como hago para declarar una función?...
Revisa estos links:
Cita:
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/objectpas...i-routines.htm

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

Understanding and Using Windows Callback Functions in Delphi : http://delphi.about.com/od/windowssh...ack_delphi.htm
Cita:
Empezado por Albert Einstein:

Lo importante es no dejar de hacerse preguntas
Espero sea útil

Nelson.
Responder Con Cita
  #4  
Antiguo 07-06-2013
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 712
Poder: 15
cloayza Va camino a la fama
Don nlsgarcia...tirese un enlace ahora...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como declarar una UDF sino existe? dandia28 Conexión con bases de datos 2 25-07-2008 22:19:57
¿Cómo declarar una API en C? aeff C++ Builder 2 20-10-2006 03:23:29
como declarar Clases que almacenen imagenes morfeo21 Varios 6 08-09-2006 17:43:58
Como declarar un campo tipo BLOB Ronny Firebird e Interbase 0 19-01-2005 17:46:29
Como declarar una clase para desarrollarla despues???? treydo OOP 2 03-02-2004 20:27:11


La franja horaria es GMT +2. Ahora son las 04:09:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi