function PP_GetTargetName(var Str:PChar):Integer;
begin
try
Result:=1;
Str:=PChar('小秘书');
except
Result:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:String;
begin
PP_GetTargetName(请问该处该给什么样参数);
end;
...全文
407打赏收藏
急,带参数函数调用问题
function PP_GetTargetName(var Str:PChar):Integer; begin try Result:=1; Str:=PChar('小秘书'); except Result:=0; end; end; procedure TForm1.Button1Click(Sender: TObject); var s:String; begin PP_GetTargetName(请问该处该给什么样参数); end;
procedure TForm1.Button1Click(Sender: TObject);
var s:String;
tempP:Array[0..127]of char; //不要定义成PCHAR,否则内存空间没有分配
begin
tempP:=PChar('小秘书');
PP_GetTargetName(tempP);
end