调用参数为pchar类型的函数或过程时注意点

function TForm1.closekey(err: pchar): integer;
begin
  result := -1;
  StrCopy(err,'CloseKeyboard执行失败')
end;

 

如果是定义了一个字符串的变量lstr:String，通过pchar(lstr)转换后作为参数传给函数closekey(pchar(lstr));如果只调用一次不会报错，如果是连续调用两次就会出现非法地址错误：Access violation at address

错误的调用方法：

 

procedure TForm1.Button1Click(Sender: TObject);
var
  lstr: String;

  i, ret: integer;
begin
  for i := 0 to 2 do
  begin
    ret := closekey(pchar(lstr));
  end;
end;

 

正确的调用方法如下

procedure TForm1.Button1Click(Sender: TObject);
var
  lErr: array[0..255] of char;
  i, ret: integer;
begin
  for i := 0 to 2 do
  begin
    ret := closekey(@lErr[0]);
  end;
end;