Özelekran da SQL Function(Scalar) Nasıl Çağırılır ? 

Dönen değer nasıl alınır?

Adım 1: Form üzerinde değeri almak ve sonucugörsel olarak görmek üzere iki adet TBtEdit yerleştirilir.

var        

  QryFunction :  TBtQuery;

begin                 

  QryFunction := TBtQuery.create(nil);

 Try                                                

    with QryFunction do

    begin

      SQL.BeginUpdate; 

      SQL.Text := 'SELECTdbo.PrgFn_StokKoduRecIDBul(' + STOK_KODU.SQLText + ') AS RESULT';

      SQL.EndUpdate;

      DisableControls;

     Open;                                                                              

      IfFieldByName('RESULT').AsInteger > 0 then SONUC.Text :=FieldByName('RESULT').AsString;   

    end;                                       

  Finally QryFunction.Free; End;

end;