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ı 1alanının çıkış(ALIS_FIYAT1.OnExit) olayına yazılması gereken kod satırı;

var

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

begin   

IFALIS_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;