請大家幫我看個問題
C的宣告
extern "C" BOOL PASCAL ReadBarCodeData (char* lpBuf, int iSize);
D7的宣告
function ReadBarCodeData(var lpBuf: pchar ; iSize: integer) : boolean; stdcall; external 'FXLib.dll';
程式
procedure TForm1.Button3Click(Sender: TObject);
var
p: pchar;
s: string;
i: integer;
begin
p := StrAlloc(64 * SizeOf(char));
i := 1024;
ReadBarCodeData(p, i);
s := String(p); ←出現錯誤
Edit1.Text := s;
end;
我想透過p這個指標取得C寫在此位置的資料(字串)，謝謝

可以讀了，解決方式如下，給大家參考
var
s: string;
i: integer;
begin
SetLength(s,256);
i := 256;
SetLength(s,StrLen(PChar(s)));
Edit1.Text := s;
end;