Pisanie własnych funkcji w Delphi

Otwieramy nowy projekt, następnie go zapisujemy: Save All:

cw2.pas

pr2.dpr

* * *

Pisanie funkcji w Delphi jest bardzo zbliżone do tych pisanych w Pascalu (ta sama składnia). Najlepiej jednak pisać je w oddzielnym Unicie (pliku z rozszerzeniem .pas).

Należy więc dodać do projektu taki plik za pomocą komendy File=>New=>Unit lub File=>New=>Other... i wybrać Unit. (Nowy element można także dodać posługując się menadżerem projektu).

Kod źródłowy dodanego modułu wygląda następująco unit Unit1;

interface

implementation

end.

Warto zmienić nazwę modułu na bardziej przyjazną (np. funkcje). Należy więc zapisać nowy Unit jako funkcje.pas (File=>Save)

* * *

Aby napisać własną funkcję, trzeba jej deklarację umieścić za słowem kluczowym interface, natomiast jej definicję – po słowie kluczowym implementation. Funkcja licząca odległość ze współrzędnych będzie więc wyglądała następująco: unit funkcje;

interface

function OdlZeWsp(x1,y1,x2,y2:real):real; implementation

uses math;

function OdlZeWsp (x1,y1,x2,y2:real):real; begin

OdlZeWsp:=power((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1),0.5); end;

end.

Użyliśmy tu modułu math, który należy dodać po słowie kluczowym implementation

* * *

Napisany przez nas Unit należy dodać wszędzie tam, gdzie będziemy korzystać z funkcji w nim zawartych. W naszym przypadku należy go dołączyć do pliku cw2.pas za pomocą komendy uses.