Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Преобразование Array of Byte в TMemoryStream

Delphi , Синтаксис , Преобразования

Code:
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

Преобразование массива байтов в TMemoryStream позволяет создать потоковый файл, содержимое которого является символическим представлением ASCII-кодов чисел от 49 до 57.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: Преобразования ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-07-06 10:46:27/0.010801076889038/0