如何将pchar内类转换为string!

Question

如果直接赋值的话,在其后会出现一个无用字符如"#$D#$A"这是为什么,如何去掉!

Answer 1

begin
  . . .
end;
// assume MAX_SIZE is a predefined constant
var
  i: Integer;
  buf: array[0..MAX_SIZE] of char;
  S: string;
begin
  i := FillBuffer(0, buf, SizeOf(buf)); // treats buf as a PChar
  S := buf;
  //statements
end;

Answer 2

var
  s:string;
  pc:PChar;  s:=string(pc); // #$D#$A 可能是这个 PChar 本来就有的
  s:=Trim(string(pc);