怎样使用pchar，请给我使用的例子，最好设计个函数，返回值也是pchar类型！

Question

怎样使用pchar，请给我使用的例子，最好设计个函数，返回值也是pchar类型！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
  function Test: pchar;
  begin
    result := pchar('aaaaaaaaaaa');
  end;
begin
  ShowMessage(Test);
end;

Answer 2

与别的类型一样 
别的怎么使 pchar就怎么使

Answer 3

function StrToPChar(Value: string): PChar;
var
  i, l: integer;
  r: PChar;
begin
  l := Length(Value);
  GetMem(r, l + 1);
  try
    for i := 0 to l - 1 do
    begin
      r[i] := Value[i + 1];
    end;
    r[l] := #0;
    Result := r;
  finally
    FreeMem(r, l + 1);
  end;
end;

Answer 4

var
 pc : PChar;
...
 GetMem(pc, strLen(Value) + 1);
 StrCopy(pc, PChar(Value));
...
 FreeMem(pc) ;

Answer 5

Pchar 就相当于C++中的字符串数组。

Answer 6

同意楼上:) Pchar 与 Array of Char 同，只是 Pchar 地址可以改变，而 Array of Char  地址不能改变