delphi 怎么将一个流转换成字符串

2025-04-27 11:12:32
推荐回答(2个)
回答1:

看是UniCode还是ACSII编码;

//UniCode
var
  S:WideString;
begin
  SetLength(S,Length(Buf) div 2);
  Move(S[1], Buf[0], Length(Buf));
end;
//ACSII
var
  S:AnsiString;
begin
  SetLength(S, Length(buf));
  Move(S[1], Buf[0], Length(Buf));
end;

回答2:

如果流可以用strcopy把buffer转成字符串