Die
Unit muss einen Interface und einen Implementationsteil haben.
Im Interface-Abschnitt kommen die Proceduren/Funktionen mit ihrem Aufruf-Syntax
und müssen dann im Implementations-Abschnitt definiert werden:
Delphi-Quellcode:
unit MeineFunktionen;
interface
uses
WinApi.Windows;
{nur als Beispiel}
const {diese const/procedure/function sind nach von aussen aufrufbar}
VersionsNr :
string = '
5.4.334';
procedure Machirgendwas(Zahl : Integer);
function BerechneWas : longInt;
implementation
function Verdopple(Zahl : Integer) : Integer;
{ -> diese function klappt nur innerhalb der Unit, da nicht im Interface-Abschnitt}
begin
resulte := Zahl*2;
end;
procedure Machirgendwas(Zahl : Integer);
begin
{hier Verarbeitungs-Code}
end;
function BerechneWas(Zahl : longInt) : longInt;
var
n : longInt;
begin
n := Verdopple(Zahl)*4;
result := n;
end;
end.
Im Programm muss dann die
Unit MeineFunktionen per uses eingebunden werden.
Delphi-Quellcode:
...
uses
MeineFunktionen;
var
n : LongInt;
...
n := BerechneWas(2); {Ergebnis wäre 16}