It is very convenient to use function (int ^ par) in the C language. It has not found Delphi usage. Tonight. Suddenly remember to use Delphi universal pointer Pointer (no type pointer) should be replaced. Test it through. Procedure xx (a: pchar); var TM: ^ tadodataset; begin TM: = Pointer (a); ... END;
Procedure BB; VAR TM: Tadodataset; BeginTM ... xx (@TM);
