把字节数组读入到流 - 回复 "巅枫" 的问题
把字节数组读入到流 - 回复 "巅枫" 的问题
涂孟超 发表于3年前
把字节数组读入到流 - 回复 "巅枫" 的问题
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

新睿云服务器60天免费使用,快来体验!>>>   


问题来源: http://www.cnblogs.com/del/archive/2011/01/16/1936942.html#2012707

var {模拟三种字节数组}
  staticArr: array[0..6] of Byte = (65, 66, 67, 68, 69, 70, 71);
  dyanmicArr1: TBytes;
  dyanmicArr2: array of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  stream.SetSize(SizeOf(staticArr));
  CopyMemory(stream.Memory, @staticArr, SizeOf(staticArr));
  stream.SaveToFile('C:\Temp\001.txt');
  stream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  stream: TMemoryStream;
  i: Integer;
begin
  SetLength(dyanmicArr1, 7);
  for i := 0 to High(dyanmicArr1) do dyanmicArr1[i] := 65 + i;
  stream := TBytesStream.Create(dyanmicArr1);
  stream.SaveToFile('C:\Temp\002.txt');
  stream.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  stream: TMemoryStream;
  i: Integer;
begin
  SetLength(dyanmicArr2, 7);
  for i := 0 to High(dyanmicArr2) do dyanmicArr2[i] := 65 + i;
  stream := TBytesStream.Create(TBytes(dyanmicArr2));
  stream.SaveToFile('C:\Temp\003.txt');
  stream.Free;
end;

  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: