[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;

[AleD]

дальше всё аналогично:

Код:

var
n: Integer;
...
TFileStream.Read(n,SizeOf(n));

предварительно, конечно, установить позицию на место где была сохранена ранее эта переменная

[lmikle]

Вопрос был, как я понимаю, не о том.
Просто тогда писать их как строки.

[vladimir01101988]

да, вот это у меня и вызвало проблему.
Может кто подскажет как их перевести в строковый тип?

[AleD]

Сообщение от vladimir01101988

да, вот это у меня и вызвало проблему.
Может кто подскажет как их перевести в строковый тип?

Код:

IntToStr(...)
StrToInt(...)
StrToIntDef(...)