[vladimir01101988]

Подскажите пожалуйста, как получить в файле читабельные числа, но при этом использование потока обязательно.

Код:

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
  n: array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 p1: TStream;
   begin
    p1 := TFileStream.Create('D:\тест\file34.txt', fmCreate);
     for i:= 1 to 10 do begin
       try
        p1.Write(n[i], SizeOf(n));
        finally
      end;
      end;
    p1.Free;
   end;