Array of Byte --> TMemoryStream

Code:

procedure TForm1.Button2Click(Sender: TObject);

{©Drkb v.3(2007): www.drkb.ru}

const

Start = 49;

AnEnd = 57;

ArLen = AnEnd - Start + 1;

var

M: TMemoryStream;

Buff: arrayof Byte;

I: Integer;

begin

SetLength(Buff, ArLen);

for I := 0to ArLen - 1do

Buff[I] := Start + I;

M := TMemoryStream.Create;

try

M.Write(Buff[0], ArLen);

M.SaveToFile('c:\test.txt');

finally

M.Free;

end;

end;