function StreamToStr(Stream: TStream): string;
begin
  setLength(result, Stream.Size);
  Stream.Position := 0;
  Stream.ReadBuffer(result[1], Stream.Size);
end;
 
procedure StrToStream(var S: string; Stream: TStream);
begin
  Stream.Position := 0;
  Stream.WriteBuffer(s[1], length(s));
end;
arrow
arrow
    文章標籤
    string stream
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄