Array of Byte --> TMemoryStream
Falk0ner, вс, 06/07/2008 - 15:34.
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: 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 {©Drkb v.3(2007): www.drkb.ru}
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;
Отправить комментарий