|
|
|
DERS ANLATIMI FRAME |
|
INC
| Tanimlama : |
procedure inc(var x[;N:Longint]); |
|
| Bu bir fonksiyon degil(proceduredir), ama burada vermeyi uygun
gördüm. Method birinci parametre ile girilen degiskenin
(tam sayi olma zorundadir) degerini ikinci parametre kadar (ikinci
degiskende tam sayi olmak zorundadir)) artacaktir. Ikinci parametrenin
opsiyonel oldugunu belirtrmek isterim, sayet verilmezse artim
degerini bir "1" olarak alinacaktir. Asagida bu husus
örneklendirilmistir. |
| |
procedure TForm1.Button1Click(Sender: TObject);
var
deger:integer;
begin
deger:=99;
inc(deger);//degiskenin degerini 1 artirir.
form1.Caption:=IntToStr(deger);//100 yazar
end; |
|
|
|
|
|