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.