Записать числа с файла через пробел..

[manchester_alan]

Как можно записать числа с файла через пробел?

assign(g,'file.txt');
  reset(g);

  while not eof(g) do
  begin
   read(g,x);
   write(x,' ');
  end;
  close(g);

так не получается..

[Stilet]

А чего не получается?

[manchester_alan]

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

А чего не получается?

выводит вообще непонятные другие числа, типо когда не присваиваешь переменной значение, то выводится например что-то типо 527562734.... Вот также и тут... Но по идее к переменной х ничего не нужно же присваивать..

[Stilet]

А как выглядит сам файл?

[manchester_alan]

ну просто текстовый файл, там через пробел записаны числа, у меня например "1 2 3 4 5"

а выводит всякие 25612752 1235781251 25242278

[Serge_Bliznykov]

Неправда ваша.
Ищите у себя косяки.
Скорее всего, читаете не тот файл, что предполагаете.

вот код для проверки/раздумий:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  g:TextFile;
  x:Integer;
begin
  assign(g,ExtractFilePath(ParamStr(0))+'\file.txt');
  reset(g);
  while not eof(g) do
  begin
   read(g,x);
   write(x,' ');
  end;
  close(g);
  ReadLn; {ждём нажатия Enter}
end.

он же в архиве, там же и текстовый файл: Project1.rar

[manchester_alan]

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

Неправда ваша.
Ищите у себя косяки.
Скорее всего, читаете не тот файл, что предполагаете.

вот код для проверки/раздумий:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  g:TextFile;
  x:Integer;
begin
  assign(g,ExtractFilePath(ParamStr(0))+'\file.txt');
  reset(g);
  while not eof(g) do
  begin
   read(g,x);
   write(x,' ');
  end;
  close(g);
  ReadLn; {ждём нажатия Enter}
end.

он же в архиве, там же и текстовый файл: Вложение 78545

у меня g идет как integer... так как там нужно было прописать функцию для этих чисел...

[Stilet]

у меня g идет как integer..

А должен идти как файл.