sinif ve interface

[korendon1971]

Merhabalar.

Benim iki sinifim var.

Tozellik=class
renk:tcolor;
function miktar:integer;
function doku:string;
end;

Taraba=class
function ozellgi:Tozellik;
end;

izninizle sunu sormak istiyorum.
Bir degisken tanimladim.
var araba:taraba;

Derleme yaparken
araba.ozelligi.renk
araba.ozellgi.miktar arabanin sartlarina uyuyor.
fakat doku uygun degil.Buna kisitlama getiremez miyiz?
Yani araba.ozelligi.doku gorulmeyecek....Yoksa bunun icin ayri bir sinif acmamiz mi gerekiyor?Umarim anlatabilmisimdir....

Diger sorum ise interface olayini anlamak icin kisa ise bir ornek yazabilirmisiniz? Tesekkur ederim.

[ikutluay]

iki clas tanımla en basiti bu olur.

interface ise bu unitin dışardan kullanılacak method procedure fonksiyon değişken vs herşeyin gösteren bölümdür. implemantation ise karşılık kodların yazıldığı yerdir.

[sabanakman]

protected ve private özellikler diğer unitlerden görünemezler. Mesela TEdit bileşeninin kodlarına bakarsanız TCustomEdit bileşeninden türemiştir ve hiç kod yoktur. Sadece protected özelliklerin birçoğunu published olarak tekrar tanımlamış ve dışarıdan görünebilir yapmıştır. Ek olarak başka da hiç kod yoktur.

[sadettinpolat]

yapilmak istenen cok net degil.
TAraba sinifinda ve diger benzer siniflarda Ozelligi alanin tipinin illa TOzellik mi olmasi gerekiyor ? Eger gerekmiyorsa TAraba sinifina ve diger benzer siniflara uygun degisik TOzellik sinifi olusturman lazim.

Kod: Tümünü seç

TOzellik = class
Renk:TColor
end;

TArabaOzellik = Class(TOzellik)
Miktar:Integer;
end;

TBenzerOzellik = Class(TOzellik)
Doku:String
end;

TAraba = Class
Ozelligi:TArabaOzellik
end;

TBenzerSinif = Class
Ozelligi:TBenzerOzellik
end;

interfaceler ile de yine ayni sekilde ozellikleri uygun guruplara ayirip bu ozelligi iceren siniflara bunlari uygulaman lazim.


mesela TOzellik, TArabaOzellik, TBenzerOzellik siniflarini birer interface olarak dusunursek bu ozellikleri diledigin kadar siniflara uygulayabilirsin.

mesela TAraba soyle olabilir.

Kod: Tümünü seç

TAraba = Class(TInterfacedObject, IArabaOzellik)

ya da daha kompleks bir sinif icin butun ozellikleri icermesini saglayabilirsin.

Kod: Tümünü seç

TKompleksNesne = Class(TInterfacedObject, IArabaOzellik,IBenzerOzellik)

vs.