Delphi-Quellcode:
unit trigo;
interface
function gradzubogen(x:real):real;
implementation
function gradzubogen(x:real):real;
begin
result:=x*0.01745;
end;
end.
Na in der implementation-Section ist die Fuktion nur lokal zur
Unit. Die Deklaration muss auch in der interface-Section aufgefuehrt werden, damit sie nach aussen sichtbar ist.