G\u00fcn\u00fcm\u00fcz\u00fcn karma\u015f\u0131k yaz\u0131l\u0131m projeleri, geli\u015ftiricilerin sadece kod yazmaktan \u00f6teye ge\u00e7mesini gerektiriyor. Bak\u0131m\u0131 kolay, \u00f6l\u00e7eklenebilir ve esnek uygulamalar geli\u015ftirmek, modern yaz\u0131l\u0131m m\u00fchendisli\u011finin temel zorluklar\u0131ndan biridir. Peki, bu zorluklar\u0131n \u00fcstesinden gelmek i\u00e7in Delphi gibi k\u00f6kl\u00fc bir geli\u015ftirme ortam\u0131nda Nesne Tabanl\u0131 Programlama (OOP) nas\u0131l bir rol oynuyor? 2025 y\u0131l\u0131nda dahi Delphi ile OOP, yaz\u0131l\u0131m kalitesini art\u0131rmak ve geli\u015ftirme s\u00fcre\u00e7lerini optimize etmek i\u00e7in vazge\u00e7ilmez bir yakla\u015f\u0131m olmaya devam etmektedir. Bu makale, Delphi’de OOP’nin temel prensiplerinden ileri d\u00fczey kullan\u0131m senaryolar\u0131na, ger\u00e7ek d\u00fcnya \u00f6rneklerinden pratik ipu\u00e7lar\u0131na kadar her y\u00f6n\u00fcyle ele alarak, bu g\u00fc\u00e7l\u00fc paradigmay\u0131 en ba\u015ftan \u00f6\u011frenmek isteyenlere kapsaml\u0131 bir rehber sunmaktad\u0131r.<\/p>\n
Yaz\u0131l\u0131m geli\u015ftirme d\u00fcnyas\u0131nda s\u00fcrekli yenilikler olsa da, baz\u0131 temel prensipler zamana meydan okur. Nesne Tabanl\u0131 Programlama (OOP) da bu prensiplerden biridir ve Delphi geli\u015ftiricileri i\u00e7in 2025 y\u0131l\u0131nda bile kritik \u00f6nem ta\u015f\u0131maktad\u0131r. Programlama yakla\u015f\u0131mlar\u0131 evrilirken, mod\u00fcler, yeniden kullan\u0131labilir ve bak\u0131m\u0131 kolay kod yazma ihtiyac\u0131 hi\u00e7bir zaman azalmam\u0131\u015ft\u0131r. \u0130\u015fte bu noktada, Delphi’nin g\u00fc\u00e7l\u00fc ve olgun OOP yetenekleri devreye giriyor. Karma\u015f\u0131k i\u015f mant\u0131klar\u0131n\u0131 y\u00f6netmek, b\u00fcy\u00fck \u00f6l\u00e7ekli uygulamalar in\u015fa etmek veya mevcut sistemleri geni\u015fletmek istedi\u011finizde, OOP ilkeleri size sa\u011flam bir temel sunar. Bu makalede, Delphi’nin 2025’teki OOP manzaras\u0131n\u0131 derinlemesine inceleyecek, temel kavramlar\u0131 a\u00e7\u0131klayacak ve modern yaz\u0131l\u0131m projelerinizde bu yakla\u015f\u0131mdan en iyi \u015fekilde nas\u0131l faydalanabilece\u011finizi g\u00f6sterece\u011fiz. Amac\u0131m\u0131z, hem yeni ba\u015flayanlar\u0131n OOP’yi Delphi ba\u011flam\u0131nda anlamas\u0131na yard\u0131mc\u0131 olmak hem de deneyimli geli\u015ftiricilere de\u011ferli ipu\u00e7lar\u0131 sunmakt\u0131r.<\/p>\n
Nesne Tabanl\u0131 Programlama (OOP), yaz\u0131l\u0131m\u0131 nesneler ad\u0131 verilen ba\u011f\u0131ms\u0131z, birbiriyle etkile\u015fime girebilen birimler olarak modelleme y\u00f6ntemidir. Bu yakla\u015f\u0131m, ger\u00e7ek d\u00fcnyadaki varl\u0131klar\u0131 ve onlar\u0131n davran\u0131\u015flar\u0131n\u0131 kodda temsil etmeye olanak tan\u0131r. \u00d6rne\u011fin, bir “araba” nesnesi rengi, markas\u0131 gibi \u00f6zelliklere (veri) ve h\u0131zlanma, frenleme gibi davran\u0131\u015flara (metotlar) sahip olabilir. 2025 y\u0131l\u0131nda dahi, yaz\u0131l\u0131m projelerinin artan karma\u015f\u0131kl\u0131\u011f\u0131 ve \u00f6l\u00e7e\u011fi g\u00f6z \u00f6n\u00fcne al\u0131nd\u0131\u011f\u0131nda, OOP’nin sundu\u011fu mod\u00fclerlik, bak\u0131m kolayl\u0131\u011f\u0131 ve kod tekrar\u0131n\u0131 azaltma gibi avantajlar paha bi\u00e7ilmezdir. \u00d6zellikle Delphi gibi h\u0131zl\u0131 uygulama geli\u015ftirme (RAD) ortamlar\u0131nda, OOP prensipleri sayesinde b\u00fcy\u00fck projeler daha y\u00f6netilebilir hale gelir ve geli\u015ftirme s\u00fcreci h\u0131zlan\u0131r.<\/p>\n
OOP’nin temel ta\u015flar\u0131 olan d\u00f6rt ana ilke, her modern yaz\u0131l\u0131m projesinin bel kemi\u011fini olu\u015fturur:<\/p>\n
Kaps\u00fclleme, bir nesnenin verilerini (\u00f6zelliklerini) ve bu veriler \u00fczerinde i\u015flem yapan metotlar\u0131n\u0131 tek bir birimde bir araya getirme ve bu verilere d\u0131\u015far\u0131dan do\u011frudan eri\u015fimi k\u0131s\u0131tlama prensibidir. Delphi’de bu, genellikle Miras, bir s\u0131n\u0131f\u0131n (alt s\u0131n\u0131f veya t\u00fcretilmi\u015f s\u0131n\u0131f) ba\u015fka bir s\u0131n\u0131f\u0131n (\u00fcst s\u0131n\u0131f veya temel s\u0131n\u0131f) \u00f6zelliklerini ve davran\u0131\u015flar\u0131n\u0131 devralmas\u0131 prensibidir. Bu, kod tekrar\u0131n\u0131 \u00f6nler ve hiyerar\u015fik bir yap\u0131 olu\u015fturarak ili\u015fkili s\u0131n\u0131flar\u0131n daha kolay y\u00f6netilmesini sa\u011flar. \u00d6rne\u011fin, Polimorfizm, farkl\u0131 s\u0131n\u0131flardan t\u00fcretilmi\u015f nesnelerin ayn\u0131 mesaja farkl\u0131 \u015fekillerde yan\u0131t verebilmesi yetene\u011fidir. Kelime anlam\u0131 “\u00e7ok bi\u00e7imlilik” demektir. Bu, ayn\u0131 metot \u00e7a\u011fr\u0131s\u0131n\u0131n, \u00e7a\u011fr\u0131ld\u0131\u011f\u0131 nesnenin tipine ba\u011fl\u0131 olarak farkl\u0131 davran\u0131\u015flar sergilemesi anlam\u0131na gelir. Delphi’de bu, genellikle sanal metotlar ( Soyutlama, bir nesnenin sadece d\u0131\u015far\u0131dan g\u00f6r\u00fcnen ve anlaml\u0131 olan \u00f6zelliklerini ve davran\u0131\u015flar\u0131n\u0131 g\u00f6sterirken, i\u00e7 karma\u015f\u0131kl\u0131klar\u0131n\u0131 gizleme prensibidir. Yani, “ne yapt\u0131\u011f\u0131n\u0131” g\u00f6sterir, “nas\u0131l yapt\u0131\u011f\u0131n\u0131” gizler. Kullan\u0131c\u0131lar\u0131n veya di\u011fer geli\u015ftiricilerin, bir nesneyi kullanmak i\u00e7in t\u00fcm i\u00e7 detaylar\u0131n\u0131 bilmek zorunda kalmamas\u0131n\u0131 sa\u011flar. Delphi’de soyut s\u0131n\u0131flar ( Delphi, Nesne Tabanl\u0131 Pascal (Object Pascal) dilini kullanarak OOP prensiplerini kolay ve anla\u015f\u0131l\u0131r bir \u015fekilde uygulamam\u0131z\u0131 sa\u011flar. Modern Delphi versiyonlar\u0131nda, bu prensipler \u00fczerine in\u015fa edilmi\u015f geni\u015f bir VCL (Visual Component Library) ve FMX (FireMonkey) g\u00f6rsel bile\u015fen k\u00fct\u00fcphaneleri bulunur. Bu, geli\u015ftiricilerin sadece birka\u00e7 sat\u0131r kodla g\u00fc\u00e7l\u00fc ve g\u00f6rsel a\u00e7\u0131dan zengin uygulamalar olu\u015fturmas\u0131na olanak tan\u0131r. \u015eimdi, Delphi’de bir s\u0131n\u0131f\u0131n nas\u0131l tan\u0131mlanaca\u011f\u0131n\u0131, nesnelerin nas\u0131l olu\u015fturulup y\u00f6netilece\u011fini ve temel OOP prensiplerinin kodda nas\u0131l hayat buldu\u011funu ad\u0131m ad\u0131m inceleyelim.<\/p>\n Delphi’de bir s\u0131n\u0131f tan\u0131mlamak, ger\u00e7ek d\u00fcnyadaki bir varl\u0131\u011f\u0131n \u015fablonunu olu\u015fturmak gibidir. Bu \u015fablon, nesnenin sahip olaca\u011f\u0131 \u00f6zellikleri (fields\/properties) ve ger\u00e7ekle\u015ftirece\u011fi eylemleri (methods) belirler. \u0130\u015fte basit bir <\/code><\/p>\n Bu \u00f6rnekte, <\/code><\/p>\n Bu kod blo\u011funda, Miras, mevcut bir s\u0131n\u0131f\u0131 temel alarak yeni, daha \u00f6zelle\u015fmi\u015f s\u0131n\u0131flar olu\u015fturmam\u0131z\u0131 sa\u011flar. Diyelim ki <\/code><\/p>\n Yukar\u0131daki \u00f6rnekte, <\/code><\/p>\n Bu \u00f6rnek, miras\u0131n nas\u0131l kullan\u0131ld\u0131\u011f\u0131n\u0131 ve t\u00fcretilmi\u015f bir s\u0131n\u0131f\u0131n temel s\u0131n\u0131f\u0131n davran\u0131\u015flar\u0131n\u0131 nas\u0131l de\u011fi\u015ftirebilece\u011fini g\u00f6stermektedir. Bu sayede, ortak davran\u0131\u015flar tek bir yerde tan\u0131mlan\u0131r ve \u00f6zelle\u015fmi\u015f s\u0131n\u0131flar sadece kendi benzersiz mant\u0131klar\u0131n\u0131 ekler.<\/p>\n Delphi, klasik OOP prensiplerinin yan\u0131 s\u0131ra, modern yaz\u0131l\u0131m geli\u015ftirme yakla\u015f\u0131mlar\u0131n\u0131 destekleyen geli\u015fmi\u015f \u00f6zellikler de sunar. Aray\u00fczler, jenerikler ve soyut s\u0131n\u0131flar, 2025 y\u0131l\u0131nda daha esnek, tip g\u00fcvenli ve geni\u015fletilebilir uygulamalar olu\u015fturmak i\u00e7in kilit rol oynar. Bu ara\u00e7lar, \u00f6zellikle b\u00fcy\u00fck \u00f6l\u00e7ekli ve \u00e7ok katmanl\u0131 mimarilere sahip projelerde geli\u015ftiricilerin verimlili\u011fini art\u0131r\u0131r ve yaz\u0131l\u0131m\u0131n bak\u0131m\u0131n\u0131 kolayla\u015ft\u0131r\u0131r. Delphi'nin bu ileri d\u00fczey OOP yetenekleri, onu g\u00fcncel ve rekabet\u00e7i bir platform olarak konumland\u0131rmaya devam etmektedir.<\/p>\n Aray\u00fczler, bir s\u0131n\u0131f\u0131n hangi metotlar\u0131 uygulamas\u0131 gerekti\u011fini tan\u0131mlayan bir s\u00f6zle\u015fme gibidir. Bir aray\u00fcz, sadece metot imzalar\u0131n\u0131 (parametreleri ve d\u00f6n\u00fc\u015f tipleri) belirtir, ancak bu metotlar\u0131n nas\u0131l uygulanaca\u011f\u0131n\u0131 belirtmez. Bir s\u0131n\u0131f, bir veya birden fazla aray\u00fcz\u00fc uygulayabilir. Bu, s\u0131n\u0131flar aras\u0131nda s\u0131k\u0131 ba\u011f\u0131ml\u0131l\u0131klar\u0131 azaltarak kodun daha esnek ve test edilebilir olmas\u0131n\u0131 sa\u011flar. \u00d6zellikle \"ba\u011f\u0131ml\u0131l\u0131k enjeksiyonu\" gibi tasar\u0131m desenlerinde aray\u00fczler kritik rol oynar.<\/p>\n <\/code><\/p>\n Yukar\u0131daki \u00f6rnekte, <\/code><\/p>\n Bu, polimorfizmin g\u00fc\u00e7l\u00fc bir ba\u015fka g\u00f6sterimidir ve mod\u00fcler, ba\u011f\u0131ms\u0131z bile\u015fenler olu\u015fturmak i\u00e7in 2025'te dahi tercih edilen bir y\u00f6ntemdir.<\/p>\n Jenerikler, tip g\u00fcvenli\u011fini kaybetmeden kodun yeniden kullan\u0131labilirli\u011fini art\u0131ran bir \u00f6zelliktir. Tek bir algoritmay\u0131 veya veri yap\u0131s\u0131n\u0131 farkl\u0131 veri tipleriyle \u00e7al\u0131\u015facak \u015fekilde tasarlaman\u0131z\u0131 sa\u011flar. Delphi'de jenerikler, koleksiyon s\u0131n\u0131flar\u0131 veya genel ama\u00e7l\u0131 algoritmalar olu\u015fturmak i\u00e7in idealdir.<\/p>\n <\/code><\/p>\n Bu <\/code><\/p>\n Delphi'nin FireMonkey (FMX) \u00e7er\u00e7evesi, platformlar aras\u0131 (Windows, macOS, iOS, Android, Linux) uygulama geli\u015ftirmek i\u00e7in tasarlanm\u0131\u015ft\u0131r. OOP prensipleri FMX'in temelini olu\u015fturur; g\u00f6rsel bile\u015fenler ( FMX, duyarl\u0131 (responsive) tasar\u0131m i\u00e7in \u00e7e\u015fitli mekanizmalar sunar. Aray\u00fczleri statik piksel de\u011ferleri yerine, parent bile\u015fenlere g\u00f6re oranlayabilir veya hizalama (private<\/code> veya protected<\/code> eri\u015fim belirleyicileri ile sa\u011flan\u0131r. Nesnenin i\u00e7 durumu, d\u0131\u015f d\u00fcnyadan gizlenir ve yaln\u0131zca belirlenen metotlar (public<\/code> \u00f6zellikler veya metotlar arac\u0131l\u0131\u011f\u0131yla) arac\u0131l\u0131\u011f\u0131yla de\u011fi\u015ftirilebilir. Bu sayede, nesnenin i\u00e7 i\u015fleyi\u015fi de\u011fi\u015fse bile, d\u0131\u015far\u0131dan onu kullanan kodun etkilenmesi minimuma iner. \u00d6rne\u011fin, bir banka hesab\u0131 nesnesinde hesap bakiyesi private<\/code> olabilir ve sadece ParaYat\u0131r<\/code> veya Para\u00c7ek<\/code> metotlar\u0131 arac\u0131l\u0131\u011f\u0131yla de\u011fi\u015ftirilebilir. Bu, verilerin tutarl\u0131l\u0131\u011f\u0131n\u0131 ve g\u00fcvenli\u011fini sa\u011flamak i\u00e7in hayati \u00f6neme sahiptir. Kaps\u00fclleme, ayn\u0131 zamanda kodun mod\u00fclerli\u011fini art\u0131r\u0131r, \u00e7\u00fcnk\u00fc her nesne kendi sorumluluklar\u0131n\u0131 ta\u015f\u0131r ve di\u011fer nesnelerin detaylar\u0131yla ilgilenmek zorunda kalmaz. Bu, hatalar\u0131n bulunmas\u0131n\u0131 ve d\u00fczeltilmesini kolayla\u015ft\u0131r\u0131r ve genel yaz\u0131l\u0131m kalitesini art\u0131r\u0131r.<\/p>\nMiras (Inheritance) ile Kod Tekrar\u0131n\u0131 Nas\u0131l \u00d6nleriz?<\/h3>\n
TVarl\u0131k<\/code> ad\u0131nda genel bir temel s\u0131n\u0131f\u0131n\u0131z varsa, TM\u00fc\u015fteri<\/code> veya TTedarik\u00e7i<\/code> gibi s\u0131n\u0131flar bu TVarl\u0131k<\/code> s\u0131n\u0131f\u0131ndan miras alabilir ve b\u00f6ylece ortak \u00f6zellikler (Ad, Adres, ID gibi) yeniden yaz\u0131lmak zorunda kalmaz. Delphi’de miras, class(TBaseClass)<\/code> syntax’\u0131 ile belirtilir. Miras, kodun yeniden kullan\u0131labilirli\u011fini art\u0131r\u0131r, daha temiz ve daha anla\u015f\u0131l\u0131r bir yap\u0131 olu\u015fturur. Ayn\u0131 zamanda, yeni \u00f6zellikler eklemek veya mevcut davran\u0131\u015flar\u0131 de\u011fi\u015ftirmek istedi\u011finizde, sadece ilgili s\u0131n\u0131fa odaklanman\u0131z\u0131 sa\u011flar. Bu, b\u00fcy\u00fck ve karma\u015f\u0131k sistemlerde geli\u015ftirme ve bak\u0131m s\u00fcre\u00e7lerini \u00f6nemli \u00f6l\u00e7\u00fcde h\u0131zland\u0131r\u0131r ve basitle\u015ftirir. 2025’te yaz\u0131l\u0131m geli\u015ftirmenin h\u0131z\u0131 d\u00fc\u015f\u00fcn\u00fcld\u00fc\u011f\u00fcnde, miras\u0131n sundu\u011fu bu avantajlar vazge\u00e7ilmezdir.<\/p>\nPolimorfizm (Polymorphism): Ayn\u0131 Aray\u00fcz, Farkl\u0131 Davran\u0131\u015flar<\/h3>\n
virtual<\/code>) ve override edilmi\u015f metotlar (override<\/code>) arac\u0131l\u0131\u011f\u0131yla ger\u00e7ekle\u015ftirilir. \u00d6rne\u011fin, bir TSekil<\/code> s\u0131n\u0131f\u0131n\u0131z ve ondan t\u00fcretilmi\u015f TDaire<\/code> ve TKare<\/code> s\u0131n\u0131flar\u0131n\u0131z olabilir. Her \u00fc\u00e7 s\u0131n\u0131f da bir \u00c7iz<\/code> metoduna sahip olabilir, ancak her biri kendi \u015feklini ekrana farkl\u0131 bir \u015fekilde \u00e7izecektir. Bu sayede, genel bir TSekil<\/code> referans\u0131 \u00fczerinden farkl\u0131 t\u00fcrdeki \u015fekilleri \u00e7a\u011f\u0131rabilir ve kodunuzu daha esnek hale getirebilirsiniz. Polimorfizm, kodun geni\u015fletilebilirli\u011fini art\u0131r\u0131r. Yeni bir \u015fekil ekledi\u011finizde (\u00f6rne\u011fin \u00dc\u00e7gen<\/code>), mevcut kodu de\u011fi\u015ftirmeye gerek kalmadan yeni s\u0131n\u0131f\u0131 sisteminize entegre edebilirsiniz. Bu, 2025 gibi dinamik bir yaz\u0131l\u0131m ortam\u0131nda, s\u00fcrekli de\u011fi\u015fen gereksinimlere uyum sa\u011flamak i\u00e7in kritik bir \u00f6zelliktir. Esneklik ve adaptasyon yetene\u011fi, polimorfizmin temel katk\u0131lar\u0131d\u0131r.<\/p>\nSoyutlama (Abstraction) ile Karma\u015f\u0131kl\u0131\u011f\u0131 Y\u00f6netme<\/h3>\n
abstract class<\/code>) ve aray\u00fczler (interface<\/code>) soyutlaman\u0131n temel ara\u00e7lar\u0131d\u0131r. \u00d6rne\u011fin, bir araba s\u00fcrerken motorun i\u00e7 i\u015fleyi\u015fini bilmek zorunda de\u011filsiniz; sadece direksiyonu \u00e7evirmeyi, gaz ve fren pedal\u0131na basmay\u0131 bilirsiniz. Ayn\u0131 \u015fekilde, yaz\u0131l\u0131mda bir metodu \u00e7a\u011f\u0131r\u0131rken, o metodun arka planda hangi algoritmalar\u0131 kulland\u0131\u011f\u0131n\u0131 bilmenize gerek yoktur, sadece ne i\u015f yapt\u0131\u011f\u0131n\u0131 ve hangi parametreleri bekledi\u011fini bilmeniz yeterlidir. Soyutlama, kodun okunabilirli\u011fini ve anla\u015f\u0131l\u0131rl\u0131\u011f\u0131n\u0131 art\u0131r\u0131r, b\u00f6ylece geli\u015ftiriciler daha y\u00fcksek seviyeli i\u015f mant\u0131\u011f\u0131na odaklanabilirler. Bu, \u00f6zellikle b\u00fcy\u00fck ekiplerde ve geni\u015f \u00f6l\u00e7ekli projelerde, karma\u015f\u0131kl\u0131\u011f\u0131n y\u00f6netilmesi ve i\u015fbirli\u011finin kolayla\u015ft\u0131r\u0131lmas\u0131 a\u00e7\u0131s\u0131ndan 2025’te dahi b\u00fcy\u00fck bir avantaj sunar.<\/p>\nDelphi ile Nesne Tabanl\u0131 Programlama: Ad\u0131m Ad\u0131m Uygulama<\/h2>\n
Delphi’de S\u0131n\u0131f Tan\u0131mlama ve Nesne Olu\u015fturma Nas\u0131l Yap\u0131l\u0131r?<\/h3>\n
TPerson<\/code> (Ki\u015fi) s\u0131n\u0131f\u0131 tan\u0131mlamas\u0131:<\/p>\n\ntype\n TPerson = class\n private\n FName: string;\n FDateOfBirth: TDate;\n function GetAge: Integer;\n public\n property Name: string read FName write FName;\n property DateOfBirth: TDate read FDateOfBirth write FDateOfBirth;\n property Age: Integer read GetAge;\n\n constructor Create(const AName: string; ADateOfBirth: TDate);\n destructor Destroy; override;\n\n procedure SayHello;\n end;\n\nimplementation\n\n{ TPerson }\n\nconstructor TPerson.Create(const AName: string; ADateOfBirth: TDate);\nbegin\n inherited Create; \/\/ Temel s\u0131n\u0131f\u0131n yap\u0131c\u0131 metodunu \u00e7a\u011f\u0131r\n FName := AName;\n FDateOfBirth := ADateOfBirth;\nend;\n\ndestructor TPerson.Destroy;\nbegin\n \/\/ Kaynaklar\u0131 serbest b\u0131rakma i\u015flemleri burada yap\u0131l\u0131r (gerekirse)\n inherited Destroy;\nend;\n\nfunction TPerson.GetAge: Integer;\nbegin\n Result := Trunc((Now - FDateOfBirth) \/ 365.25); \/\/ Basit ya\u015f hesaplamas\u0131\nend;\n\nprocedure TPerson.SayHello;\nbegin\n ShowMessage(Format('Merhaba, benim ad\u0131m %s ve %d ya\u015f\u0131nday\u0131m.', [FName, Age]));\nend;\n<\/pre>\nTPerson<\/code> s\u0131n\u0131f\u0131 FName<\/code> ve FDateOfBirth<\/code> ad\u0131nda iki \u00f6zel (private<\/code>) alana sahiptir. Name<\/code>, DateOfBirth<\/code> ve Age<\/code> ise \u00f6zelliklerdir (property<\/code>). Age<\/code> \u00f6zelli\u011fi, ya\u015f hesaplama mant\u0131\u011f\u0131n\u0131 gizleyen GetAge<\/code> fonksiyonu arac\u0131l\u0131\u011f\u0131yla okunur, bu da kaps\u00fcllemeye g\u00fczel bir \u00f6rnektir. Create<\/code> yap\u0131c\u0131 (constructor) metodu, nesne olu\u015fturuldu\u011funda ilk de\u011ferleri atamak i\u00e7in kullan\u0131l\u0131rken, Destroy<\/code> y\u0131k\u0131c\u0131 (destructor) metodu nesne bellekten silinirken kaynaklar\u0131 serbest b\u0131rakmak i\u00e7in kullan\u0131l\u0131r. Nesne olu\u015fturma ve metot \u00e7a\u011f\u0131rma i\u015flemi ise \u015f\u00f6yle yap\u0131l\u0131r:<\/p>\n\nprocedure TForm1.Button1Click(Sender: TObject);\nvar\n Person1: TPerson;\nbegin\n Person1 := TPerson.Create('Ay\u015fe Y\u0131lmaz', StrToDate('15.05.1990'));\n try\n Person1.SayHello;\n ShowMessage(Format('Ay\u015fe''nin do\u011fum tarihi: %s', [DateToStr(Person1.DateOfBirth)]));\n finally\n Person1.Free; \/\/ Nesneyi bellekten serbest b\u0131rak\n end;\nend;\n<\/pre>\nTPerson<\/code> tipinde bir Person1<\/code> nesnesi olu\u015fturulur, metotlar\u0131 \u00e7a\u011fr\u0131l\u0131r ve finally<\/code> blo\u011fu i\u00e7inde Free<\/code> metodu ile bellekten d\u00fczg\u00fcn bir \u015fekilde serbest b\u0131rak\u0131l\u0131r. Bu, Delphi'de bellek y\u00f6netiminin temelini olu\u015fturur ve bellek s\u0131z\u0131nt\u0131lar\u0131n\u0131 \u00f6nlemek i\u00e7in kritik bir ad\u0131md\u0131r.<\/p>\nMiras\u0131n G\u00fcc\u00fc: Mevcut S\u0131n\u0131flar\u0131 Geni\u015fletme ve \u00d6zelle\u015ftirme<\/h3>\n
TPerson<\/code> s\u0131n\u0131f\u0131m\u0131z var ve biz \u015fimdi TStudent<\/code> (\u00d6\u011frenci) ve TTeacher<\/code> (\u00d6\u011fretmen) s\u0131n\u0131flar\u0131 olu\u015fturmak istiyoruz. Bu s\u0131n\u0131flar, TPerson<\/code>'\u0131n t\u00fcm \u00f6zelliklerini ve metotlar\u0131n\u0131 devralacak ve kendi \u00f6zg\u00fcn \u00f6zelliklerini ekleyecektir:<\/p>\n\ntype\n TStudent = class(TPerson)\n private\n FStudentNumber: string;\n FGrade: Integer;\n public\n property StudentNumber: string read FStudentNumber write FStudentNumber;\n property Grade: Integer read FGrade write FFGrade;\n\n constructor Create(const AName: string; ADateOfBirth: TDate;\n const AStudentNumber: string; AGrade: Integer); reintroduce; \/\/ Yeni constructor\n procedure Study;\n procedure SayHello; override; \/\/ SayHello metodunu override et\n end;\n\nimplementation\n\n{ TStudent }\n\nconstructor TStudent.Create(const AName: string; ADateOfBirth: TDate;\n const AStudentNumber: string; AGrade: Integer);\nbegin\n inherited Create(AName, ADateOfBirth); \/\/ Temel s\u0131n\u0131f\u0131n constructor'\u0131n\u0131 \u00e7a\u011f\u0131r\n FStudentNumber := AStudentNumber;\n FGrade := AGrade;\nend;\n\nprocedure TStudent.Study;\nbegin\n ShowMessage(Format('%s, %d notuyla ders \u00e7al\u0131\u015f\u0131yor.', [Name, Grade]));\nend;\n\nprocedure TStudent.SayHello;\nbegin\n \/\/ Temel s\u0131n\u0131f\u0131n SayHello metodunu \u00e7a\u011f\u0131rabiliriz, sonra ekleme yapar\u0131z\n inherited SayHello;\n ShowMessage(Format('Ben ayn\u0131 zamanda %s numaral\u0131 bir \u00f6\u011frenciyim.', [FStudentNumber]));\nend;\n<\/pre>\nTStudent<\/code> s\u0131n\u0131f\u0131 TPerson<\/code>'dan miras al\u0131r. Kendi yap\u0131c\u0131 metoduna (Create<\/code>) sahiptir ve TPerson<\/code>'\u0131n SayHello<\/code> metodunu override<\/code> (ge\u00e7ersiz k\u0131lar) ederek kendi \u00f6zel mesaj\u0131n\u0131 ekler. Bu, polimorfizm i\u00e7in de bir ad\u0131md\u0131r. reintroduce<\/code> anahtar kelimesi, temel s\u0131n\u0131ftaki ayn\u0131 isimde bir metodun tamamen yeni bir versiyonunu tan\u0131mlad\u0131\u011f\u0131m\u0131z\u0131 belirtmek i\u00e7in kullan\u0131l\u0131r, genellikle yap\u0131c\u0131 metotlarda g\u00f6r\u00fcl\u00fcr. Bu yap\u0131, 2025'te dahi karma\u015f\u0131k sistemlerde kodun d\u00fczenini ve yeniden kullan\u0131labilirli\u011fini sa\u011flamak i\u00e7in vazge\u00e7ilmezdir.<\/p>\n\nprocedure TForm1.Button2Click(Sender: TObject);\nvar\n Student1: TStudent;\nbegin\n Student1 := TStudent.Create('Can Demir', StrToDate('20.11.2003'), '2021001', 90);\n try\n Student1.SayHello; \/\/ TStudent'\u0131n override edilmi\u015f SayHello'su \u00e7a\u011fr\u0131l\u0131r\n Student1.Study;\n finally\n Student1.Free;\n end;\nend;\n<\/pre>\nModern Delphi ve OOP: 2025'te \u0130leri D\u00fczey Kullan\u0131m Senaryolar\u0131<\/h2>\n
Aray\u00fczler (Interfaces): Esneklik ve Ba\u011f\u0131ms\u0131zl\u0131k Nas\u0131l Sa\u011flan\u0131r?<\/h3>\n
\ntype\n IPrintable = interface\n ['{GUID-HERE}'] \/\/ Benzersiz bir GUID eklenmeli\n procedure Print;\n function GetPrintContent: string;\n end;\n\n TDocument = class(TInterfacedObject, IPrintable) \/\/ TInterfacedObject'ten t\u00fcretmek \u00f6nemlidir\n private\n FContent: string;\n public\n constructor Create(const AContent: string);\n procedure Print;\n function GetPrintContent: string;\n end;\n\n TPicture = class(TInterfacedObject, IPrintable)\n private\n FImagePath: string;\n public\n constructor Create(const AImagePath: string);\n procedure Print;\n function GetPrintContent: string;\n end;\n\nimplementation\n\n{ TDocument }\n\nconstructor TDocument.Create(const AContent: string);\nbegin\n inherited Create;\n FContent := AContent;\nend;\n\nprocedure TDocument.Print;\nbegin\n ShowMessage('Belge yazd\u0131r\u0131l\u0131yor: ' + FContent);\nend;\n\nfunction TDocument.GetPrintContent: string;\nbegin\n Result := FContent;\nend;\n\n{ TPicture }\n\nconstructor TPicture.Create(const AImagePath: string);\nbegin\n inherited Create;\n FImagePath := AImagePath;\nend;\n\nprocedure TPicture.Print;\nbegin\n ShowMessage('Resim yazd\u0131r\u0131l\u0131yor: ' + FImagePath);\nend;\n\nfunction TPicture.GetPrintContent: string;\nbegin\n Result := 'Resim Yolu: ' + FImagePath;\nend;\n<\/pre>\nIPrintable<\/code> aray\u00fcz\u00fc, Print<\/code> ve GetPrintContent<\/code> metotlar\u0131n\u0131 tan\u0131mlar. TDocument<\/code> ve TPicture<\/code> s\u0131n\u0131flar\u0131 bu aray\u00fcz\u00fc uygular ve kendi implementasyonlar\u0131n\u0131 sa\u011flar. Bu sayede, herhangi bir IPrintable<\/code> referans\u0131 \u00fczerinden belge veya resmi yazd\u0131rabiliriz, nesnenin ger\u00e7ek tipini bilmemize gerek kalmaz.<\/p>\n\nprocedure ProcessPrintable(const PrintableItem: IPrintable);\nbegin\n ShowMessage('\u0130\u00e7erik: ' + PrintableItem.GetPrintContent);\n PrintableItem.Print;\nend;\n\nprocedure TForm1.Button3Click(Sender: TObject);\nvar\n Doc: TDocument;\n Pic: TPicture;\nbegin\n Doc := TDocument.Create('Bu bir deneme belgesidir.');\n Pic := TPicture.Create('C:\\resimler\\tatil.jpg');\n try\n ProcessPrintable(Doc);\n ProcessPrintable(Pic);\n finally\n Doc.Free; \/\/ Aray\u00fcz referans\u0131 tutan nesneler TInterfacedObject'ten t\u00fcrediyse Free \u00e7a\u011fr\u0131labilir.\n Pic.Free;\n end;\nend;\n<\/pre>\nGenerics (Jenerikler): Tip G\u00fcvenli\u011fi ve Yeniden Kullan\u0131labilirli\u011fi Art\u0131rma<\/h3>\n
\ntype\n TMyGenericListTMyGenericListT<\/code> i\u00e7in \u00e7al\u0131\u015fabilir. \u00d6rne\u011fin, bir TMyGenericListTMyGenericListGenerics.Collections<\/code> birimi zaten \u00e7ok g\u00fc\u00e7l\u00fc jenerik koleksiyonlar (TListTDictionary\nprocedure TForm1.Button4Click(Sender: TObject);\nvar\n IntList: TMyGenericListDelphi FMX ile Mobil Uygulama Geli\u015ftirme ve Duyarl\u0131 Tasar\u0131m<\/h3>\n
TButton<\/code>, TEdit<\/code> vb.) s\u0131n\u0131flard\u0131r ve miras alabilir, polimorfik davran\u0131\u015flar sergileyebilir. 2025'te mobil cihaz \u00e7e\u015fitlili\u011fi d\u00fc\u015f\u00fcn\u00fcld\u00fc\u011f\u00fcnde, uygulamalar\u0131n farkl\u0131 ekran boyutlar\u0131na ve y\u00f6nelimlerine uyum sa\u011flamas\u0131 kritik hale gelmi\u015ftir.<\/p>\nAlign<\/code> \u00f6zelli\u011fi), kenar bo\u015fluklar\u0131 (Margins<\/code>, Padding<\/code>) gibi \u00f6zelliklerle esneklik sa\u011flayabilirsiniz. Ayr\u0131ca, farkl\u0131 cihaz form fakt\u00f6rleri veya y\u00f6nelimleri i\u00e7in \"view\" (g\u00f6r\u00fcn\u00fcm) tan\u0131mlar\u0131 olu\u015fturarak, ayn\u0131 uygulama koduyla farkl\u0131 aray\u00fcz d\u00fczenleri sunabilirsiniz. Bu, web geli\u015ftiricilerinin CSS media query'leri ile elde etti\u011fi esnekli\u011fe benzer bir yakla\u015f\u0131md\u0131r, ancak Delphi'nin kendi g\u00f6rsel tasar\u0131m ortam\u0131nda kodlanm\u0131\u015f aray\u00fczler i\u00e7in ge\u00e7erlidir. \u00d6rne\u011fin, bir telefon g\u00f6r\u00fcn\u00fcm\u00fcnde farkl\u0131 bir d\u00fczen, bir tablet g\u00f6r\u00fcn\u00fcm\u00fcnde farkl\u0131 bir d\u00fczen g\u00f6sterebilirsiniz. Bu, kullan\u0131c\u0131 deneyimini optimize etmek i\u00e7in \u00e7ok \u00f6nemlidir.<\/p>\n\n\n