Sangat mudah menggunakan fungsi (int ^par) dalam bahasa C. Saya memeriksa banyak informasi tetapi tidak dapat menemukan cara menggunakannya di Delphi.
Malam ini, saya tiba-tiba teringat bahwa Delphi universal pointer Pointer (pointer yang tidak diketik) harus digunakan sebagai gantinya. Lulus ujian.
Prosedur xx(a:pchar);
var
tm:^TAdodataset;
mulai
tm:=Penunjuk(a);
...
akhir;
prosedurbb;
var
tm:TAdodataset;
mulai
tm...
xx(@tm);
akhir;