Evo primera implementacije grafova u Delphiju. Koriscene su liste. Posto je ovo samo demonstracija nisam vodio racuna o estetici.
U ovom programu moguce je naci najkraci put izmedju dva cvora u grafu. To se moze iskoristiti za trazenje najkraceg puta izmedju dve ulice u gradskom naselju. Cvorovi bi predstavljali raskrsnice a veze ulice.
Takodje, u ovom primeru se moze videti kako se programira iscrtavanje naslovne linije prozora (forme).
Ako je neko zainteresovan za ovo moze pogledati na:
http://www.ptt.yu/korisnici/b/a/batagogi/graf.htm
[Ovu poruku je menjao batagogi dana 04.06.2002 u 10:45 PM GMT]