char * ----- PChar or var Charunsigned char * ----- PByte or var Bytefunction f(Param: PChar): Boolean; stdcall; //.... var A: array[0..100] of Char; begin f(A); //如果是输出 f('如果是输入') end; //or var A: PChar; begin GetMem(A, 100); f(A); FreeMem(A, 100); end;
//....
var
A: array[0..100] of Char;
begin
f(A); //如果是输出 f('如果是输入')
end;
//or
var
A: PChar;
begin
GetMem(A, 100);
f(A);
FreeMem(A, 100);
end;