En pascal una función se declara así:
Código Delphi
[-]
function MiFuncion(parámetros): tipo;
begin
Result := valor_de_vuelta;
end;
Ejemplo:
Código Delphi
[-]
function Suma(A, B: Integer): Integer;
begin
Result := A + B;
end;
Ahora, ¿dónde implementarla?
En pascal, una unidad tiene la siguiente estructura:
Código Delphi
[-]
unit nombre_de_unidad;
interface
implementation
end.
Debes poner la implementación en lasección implementation
Código Delphi
[-]
unit nombre_de_unidad;
interface
implementation
function Suma(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Puesto así nada más, sólo podrás usar la función en la misma unidad. Para poder usarla en otras unidades, debes "exportarla" colocando su encabezado en la sección
interface:
Código Delphi
[-]
unit nombre_de_unidad;
interface
function Suma(A, B: Integer): Integer;
implementation
function Suma(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
// Saludos