> Hello, this is related to my previous post... I'm trying to write a UDF > in Delphi... It's declared like this: > > function Descuentos(var Suma:currency;Descuentos:pchar):double; cdecl; > export; > > DECLARE EXTERNAL FUNCTION SG_DES > DOUBLE PRECISION, > CSTRING(50) > RETURNS DOUBLE PRECISION BY VALUE > ENTRY_POINT 'Descuentos' MODULE_NAME 'SGUDF';
Delphi type Currency is not the same thing as Firebird type DOUBLE PRECISION. Change the Delphi declaration to: function Descuentos(var Suma:double;Descuentos:pchar):double; cdecl; export; Pepak ------------------------------------ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Visit http://www.firebirdsql.org and click the Resources item on the main (top) menu. Try Knowledgebase and FAQ links ! Also search the knowledgebases at http://www.ibphoenix.com ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/firebird-support/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/firebird-support/join (Yahoo! ID required) <*> To change settings via email: firebird-support-dig...@yahoogroups.com firebird-support-fullfeatu...@yahoogroups.com <*> To unsubscribe from this group, send an email to: firebird-support-unsubscr...@yahoogroups.com <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/