Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Class Kullanımı

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
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.
 
Üst Alt