CodePudding user response:
Procedure GetTemperature (tempType: integer; Retval: ^ double; TypeSupport: ^ integer=NULL);CodePudding user response:
Float is single, not double,So roughly:
Procedure GetTemperature (tempType: word; Var retval: single; Var typeSupport: word=0); Cdecl;