[NeiL]

Помогите новичку... Возник вопрос: Имеется txt-файл в который записываю некотоhe. последовательность чисел и последующем считываю ее. Как сделать чтобы последовательность записывалась в строку, через и пробел и ее можно было считать. Так как у меня получается только так:
1
2
3
4
5
6
7
8
9
0
а надо:
1 2 3 4 5 6 7 8 9 0

[K735Demon]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
  i: integer;

begin
  AssignFile(f, 'c:\1.txt');
  Rewrite(f);
  for i := 0 to 9 do
    write(f, inttostr(i) + ' ');
  CloseFile(f);
end;

Admin: Пользуемся тегами!

[Phedor]

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

Помогите новичку... Возник вопрос: Имеется txt-файл в который записываю некотоhe. последовательность чисел и последующем считываю ее. Как сделать чтобы последовательность записывалась в строку, через и пробел и ее можно было считать. Так как у меня получается только так:
1
2
3
4
5
6
7
8
9
0
а надо:
1 2 3 4 5 6 7 8 9 0

Или замените в своей программе WriteLn на Write :-)

[Кодер]

Writeln на Write

Серьёзная ошибка среди начинающих..иногда бывает так, что она подпортит всю программу