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.