Unit mit Funktionen einbinden

[Cronen]

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}