[vladimir01101988]

Подскажите пожалуйста, пытаюсь записать поток в файл, но файл оказывается пустой.

Код:

procedure TForm1.Button4Click(Sender: TObject);
 var
  p: TStream;
  begin
   for i:= 1 to 10 do //заполняю массив
    n[i]:= (i)*(-100);
      p := TFileStream.Create('D:\file2.txt', fmCreate or fmOpenRead or fmOpenWrite);
       try
         p.WriteBuffer(n, SizeOf(n));//записываю в поток, поток уже пишет в файл
     finally
    p.Free;
  end;
end;

[Kapitoshka438]

А n вы где и как описываете? Посмотрите, чему равен SizeOf(n) во время выполнения.

[vladimir01101988]

n в данном случае у меня массив

Код:

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

{$R *.dfm}

[Kapitoshka438]

Странно, у меня непустой получается.

[vladimir01101988]

Все получилось, спасибо, только почему иероглифы он туда пишет