Телеграмм чат группы Delphi

Как лучше хранить/заполнять массивы байт?
Если нужно отправить в сеть пакет в несколько байт, то можно объявить массив нудной длины, присвоить значения и отправить.
Если менять не надо, то можно объявить константу.
А если массив достаточно большой, больше 30 байт, то куда его запихать?
Если ещё его нужно менять по ходу работы программы.
Я пока в строке храню в хексе. Перед отправкой вывожу в массив, или в поток. Удобно.
Может есть другие способы?

источник

11:07пожаловаться #5

Dmitry Belkevich in Delphi & Lazarus

для 30 ти байт пофиг, храни как удобно

источник

11:10пожаловаться #6

Dmitry Belkevich in Delphi & Lazarus

хотя я бы хранил в TBytes

источник

11:11пожаловаться #7

Dmitry Belkevich in Delphi & Lazarus

простейшая функция сохранения в файл:

procedure SaveBytesToFile(const Bytes: array of byte; ACount: integer; const FileName: string);
var
 FileStream: TFileStream;
 Count: integer;
begin
 if ACount = 0 then
  Count := Length(Bytes)
 else
  Count := ACount;
 FileStream := nil;
 try
  FileStream := TFileStream.Create(FileName, fmCreate);
  FileStream.Size := Count;
  FileStream.Seek(0, TSeekOrigin.soBeginning);
  FileStream.WriteBuffer(Bytes, Count);
 finally
  FileStream.Free;
 end;
end;

источник

11:13пожаловаться #8

Viktor Akselrod in Delphi & Lazarus

Dmitry Belkevich

простейшая функция сохранения в файл:

procedure SaveBytesToFile(const Bytes: array of byte; ACount: integer; const FileName: string);
var
 FileStream: TFileStream;
 Count: integer;
begin
 if ACount = 0 then
  Count := Length(Bytes)
 else
  Count := ACount;
 FileStream := nil;
 try
  FileStream := TFileStream.Create(FileName, fmCreate);
  FileStream.Size := Count;
  FileStream.Seek(0, TSeekOrigin.soBeginning);
  FileStream.WriteBuffer(Bytes, Count);
 finally
  FileStream.Free;
 end;
end;

http://docwiki.embarcadero.com/Libraries/Rio/en/System.IOUtils.TFile.WriteAllBytes

источник

11:14пожаловаться #9

Timur in Delphi & Lazarus

Dmitry Belkevich

простейшая функция сохранения в файл:

procedure SaveBytesToFile(const Bytes: array of byte; ACount: integer; const FileName: string);
var
 FileStream: TFileStream;
 Count: integer;
begin
 if ACount = 0 then
  Count := Length(Bytes)
 else
  Count := ACount;
 FileStream := nil;
 try
  FileStream := TFileStream.Create(FileName, fmCreate);
  FileStream.Size := Count;
  FileStream.Seek(0, TSeekOrigin.soBeginning);
  FileStream.WriteBuffer(Bytes, Count);
 finally
  FileStream.Free;
 end;
end;