Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Array of Byte > TMemoryStream

01.01.2007
procedure TForm1.Button2Click(Sender: TObject);

const
 
Start = 49;
 
AnEnd = 57;
 
ArLen = AnEnd - Start + 1;
var
  M
: TMemoryStream;
 
Buff: array of Byte;
  I
: Integer;
begin
 
SetLength(Buff, ArLen);
 
for I := 0 to ArLen - 1 do
   
Buff[I] := Start + I;
 
  M
:= TMemoryStream.Create;
 
try
    M
.Write(Buff[0], ArLen);
    M
.SaveToFile('c:\test.txt');    
 
finally
    M
.Free;
 
end;
end;

 

В результате должен получится файл c:\test.txt такого содержания:

123456789

 

поскольку числа с 49 до 51 являются ASCII-кодами этих чисел, а соответственно и являются их символьным представлением.

 

 
Автор: s-mike