Очень удобно использовать функцию (int ^par) на языке C. Я проверил много информации, но не нашел, как ее использовать в Delphi.
Сегодня вечером я внезапно вспомнил, что вместо этого следует использовать универсальный указатель Delphi Pointer (нетипизированный указатель). Пройдите тест.
PROcedure xx(a:pchar);
вар
тм:^TAdodataset;
начинать
тм:=Указатель(а);
...
конец;
процедураbb;
вар
тм:TAdodataset;
начинать
тм...
хх(@тм);
конец;