crear funciones en delphi

[dec]

Hola,

Una función no es más que un bloque de código que puede utilizarse en repetidas ocasiones sin que haya necesidad de duplicarlo, de "rescribirlo": para eso usamos la función. En Delphi tenemos procedimientos y funciones y estas últimas se distingen de aquellos en que las funciones devuelven un resultado.

No es que los procedimientos no puedan "devolver" resultados, pero, las funciones cuentan con una forma "natural" de hacerlo. ¿Un ejemplo de función? Claro, hombre, no faltaba más. Vamos con una que nos sumará dos Integer (que se pasan como parámetros) y nos devolverá el resultado de dicha suma:

Código Delphi [-]
function Sumar(a, b: integer) : integer;
begin
  Result := a + b;
end;

Como se ve utilizamos la palabra reservada "Result", siempre del tipo del valor de retorno de la función, para asignarle, justamente, el resultado que al cabo ofrecerá la función. ¿Cómo podemos utilizar la función de arriba, sin ir más lejos? Pues, por ejemplo:

Código Delphi [-]
var
  a,b,c: integer;
begin
  a := 5;
  b := 2;
  c := Sumar(a, b);
  // Muestra 7
  ShowMessage( IntToStr(c) );
end;

Como ves para usar la función no tenemos sino ceñirnos a su prototipo, esto es, pasarle los parámetros apropiados en número y tipo. En este caso se trata de "Integers" y, en fin, declaramos tres "Integer", "a", "b" y "c". A los primeros les damos un valor nosotros mismos, directamente, y, "c", tomará el valor devuelto por la función "Sumar", que en este caso es 7, puesto que se suma el valor de "a" y "b" que son los enteros que se pasan como parámetros a la función.

¿Porqué no echas un vistazo en el buscador de los Foros? Si buscas por "tutorial Delphi", "libros Delphi", etc., a buen seguro encontrarás información que será de tu interés.

En todo caso bienvenido al ClubDelphi. No dejes de pegar un repaso a la guía de estilo de los Foros.