Delphi - Declaración de procedimientos y funciones

Mi problema es q no m aclaro todavía muy bien a la hora de declarar procedimientos y funciones que puedan ser llamados por otras unidades del proyecto.P. ej. Tengo una función q m devuelve el año de la fecha q le paso como parametro, a la cual llamo desde distintas unidades(Units.pas) pero siempre tengo q poner en q unit está para llamrla -> Ppal.ObtenAño(Date). Esto ha de ser así o hay otra forma.Gracias

Si no hay un conflicto de nombres (o sea, dos o más funciones con el mismo nombre en diferentes unidades), no hay necesidad de calificar el nombre de la función con el nombre de la unidad donde ésta se encuentra.

Por ejemplo:

unit rutinas;

interface

function iif(exp: boolean; valor1: variant; valor2: variant): variant;

implentation

function iif(exp: boolean; valor1: variant; valor2: variant): variant;
begin
if exp then
Result := valor1
else
Result := valor2
end;

end.

Tenemos entonces una unidad rutinas que expone una función IIF. En cualquier otro lugar donde querramos usarla, tenemos que incluir rutinas en la cláusula uses y luego se puede llamar a la función sin más:

unit unit1;

...

implementation

{$R *.res}

uses rutinas; // usamos la unidad

procedure TForm1.Button1Click(Sender: TObject);
begin
// llamamos a la función
ShowMessage(iif(IsNumeric(Edit1.Text), 'OK', 'ERROR'));
end;

Espero que te sirva.

Ernesto

Muchas gracias por tu ayuda.Hasta otra