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.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
deger:integer;
begin
deger:=99;
inc(deger);//degiskenin degerini 1 artirir.
form1.Caption:=IntToStr(deger);//100 yazar
end;
07-12-07, 18:31
Çevrimiçi 
