Class Kullanımı

Bu dersimizde Delphi'de Class teriminin kullanılmasını ele alacağız.

Bu dersimizde Delphi'de Class teriminin kullanılmasını ele alacağız.


program class_kullanimi;

{$APPTYPE CONSOLE}



type

 yer=class

   private

    x,y:integer;

     public

      procedure verioku(ilkx,ilky:integer);

      procedure veriyiyaz(yx,yy:integer);

 end;



  procedure yer.verioku(ilkx,ilky:integer);

   begin

      x:=ilkx;

      y:=ilky;



   end;



  procedure yer.veriyiyaz(yx,yy:integer);

    begin

      write('X:',X,' ','Y:',Y);



    end;

  var

  y1:yer;

   begin

   y1.verioku(5,10);

   y1.veriyiyaz(y1.x,y1.y);

   readln;

 end.

  • Etiketler;
Mutlu Yılmaz
Mutlu Yılmaz, şu an Kırıkkale Üniversitesinde Bilgisayar ve Öğretim Teknolojileri Öğretmenliği okuyor. Bilgilerini Sanalkurs'ta paylaşmayı sürdürecek.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Çok özür dileyerek meramımı buraya yazıyorum. Yapmaya çalıştığım bir proje var. Bir konuda küçük bir yardıma ihtiyacım var. Size özel mesaj atabileceğim bir buton göremedim. İsterseniz siz mail adresinizi verin isterseniz de ben buraya yazayım. En yakın zamanda bana yardımcı olursanız çok memnun olurum. Mail Adresim:yakuppyigit@gmail.com Teşekkür ederim.

Yukarı Git