slm arkadaşlar ben delphiye yeni başladımda bi kaç sorum olucktı cevaplarsanız sevinirim. 1-) Public ile private arasında ne fark var? 2-) Aşağıdaki koddaki public kullanımını anlatırmısınız?(property read write niçin kullanılmıştır?) 3-) Aşağıdaki procedure de var kısmında mypersonel değişkeni tanımlanmış daha sonra neden mypersonel:=tpersonel.create; kullanılmıştır? Cevaplar için şimdiden teşekkür ederim.
unit Unit2;
interface type tpersonel=class(tobject) private padi:string; psoyadi:string; Pucreti:double; public property adi:string read padi write padi; property soyadi:string read psoyadi write psoyadi; property ucreti:double read pucreti write pucreti; function maashesapla(gun:integer):double; end; implementation
procedure TForm1.Button1Click(Sender: TObject); var mypersonel:tpersonel; begin mypersonel:=tpersonel.create; mypersonel.ucreti:=15000000; showmessage(floattostr(mypersonel.maashesapla(30))); end;
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
1-) Public ile private arasında ne fark var?
2-) Aşağıdaki koddaki public kullanımını anlatırmısınız?(property read write niçin kullanılmıştır?)
3-) Aşağıdaki procedure de var kısmında mypersonel değişkeni tanımlanmış daha sonra neden
mypersonel:=tpersonel.create; kullanılmıştır?
Cevaplar için şimdiden teşekkür ederim.
unit Unit2;
interface
type
tpersonel=class(tobject)
private
padi:string;
psoyadi:string;
Pucreti:double;
public
property adi:string read padi write padi;
property soyadi:string read psoyadi write psoyadi;
property ucreti:double read pucreti write pucreti;
function maashesapla(gun:integer):double;
end;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var
mypersonel:tpersonel;
begin
mypersonel:=tpersonel.create;
mypersonel.ucreti:=15000000;
showmessage(floattostr(mypersonel.maashesapla(30)));
end;
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.