Konu: Aktif kodlama ile alış fiyatına girilen değerin üzerinde %20 eklenerek satış fiyatı alanına yazma

Örnek Uygulama:

Stok sabit kartları ekranında

Alış Fiyatı 1 alanının çıkış(ALIS_FIYAT1.OnExit) olayına yazılması gereken kod satırı;

var

x:Extended;  //Yüzde hesabının yapılması için değişken tanımlanır.

begin   

IF ALIS_FIYAT1.GETASFLOAT>0 THEN

BEGIN                     

x:=FloatToStr((ALIS_FIYAT1.GetAsFloat/100)*20); // Alış fiyatının yüzde 20’si alınıyor.      

SATIS_FIYAT1.TEXT:=FloatToStr(ALIS_FIYAT1.GetAsFloat+x); //Satış fiyatı 1 alanına alış fiyatının yüzde 20’si eklenerek yazılıyor.

END             

end;