把字节数组读入到流 - 回复

问题来源: 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;