Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=86633&view=findpost&p=642594 Sat, 12 Mar 2005 22:23:16 +0000 TMemoryStream -> array of Byte https://forum.sources.ru/index.php?showtopic=86633&view=findpost&p=642594
    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]]> s-mike Hello, World! https://forum.sources.ru/index.php?showtopic=86633&view=findpost&p=642576 Sat, 12 Mar 2005 22:03:14 +0000 TMemoryStream -> array of Byte https://forum.sources.ru/index.php?showtopic=86633&view=findpost&p=642576 TMemoryStream в array of Byte можно использовать следующий код:

    procedure TForm1.Button1Click(Sender: TObject);
    var
      M: TMemoryStream;
      Buff: array of Byte;
    begin
      M := TMemoryStream.Create;
      try
        M.LoadFromFile('c:\test.htm');
        SetLength(Buff, M.Size);
        M.Position := 0;
        M.Read(Buff[0], M.Size);
      finally
        M.Free;
      end;
    end;


Автор: Rouse_]]> s-mike Hello, World!