Tienes un error con los parametros, las UDF solo aceptan parametros por referencia y no acepta strings, tienes qe usar pchar en su lugar.
function StrMid(pCadena : String; iIndex : Integer ; iNum : integer) : ShortString; cdecl; export;
sería:
function StrMid(pCadena : pchar; var iIndex : Integer ; var iNum : integer) : pchar; cdecl; export;
|