调用参数为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;