Формирование строки в файле

← →
Nemeziz (2008-04-14 22:09) [0]

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

← →
AIK © (2008-04-14 22:22) [1]

procedure TForm1.Button1Click(Sender: TObject); begin AssignFile(f, "Здесь путь к файлу‘); reset(f); While not eof(f) do Begin Readln(f, s1); s2:=s2+" "+s1; end; CloseFile(f); Edit1.text:= s2 end;

← →
ser_ega (2008-04-14 22:38) [2]

procedure TForm1.Button1Click(Sender: TObject);
Var i:INTEGER;
a:array[1..100]of integer;
begin
AssignFile(f, "Здесь путь к файлу‘);
reset(f);
While not eof(f) do
Readln(f, s);
CloseFile(f);
for i:=1 to length(st) do
if pos(" ",s)<>0 then begin
a[i]:=strtoint(Copy(s,1,pos(" ",s)-1));
Delete(s,1,Pos(" ",s));
eND;
else Break;
end;

Если я правильно понял вопрос то это так...

← →
Johnmen © (2008-04-14 22:42) [3]

> Так как у меня получается только так

Где код?

> Если я правильно понял вопрос то это так...

Ах да, просто в моем понятии у него в файле цыфры находились по вертикали, я даже неподумал об этом.

> ser_ega (14.04.08 22:38) [2]

Ты мне голову заморочил, readln читает их
если они будут даже по горизонтали, и что за кривой код?

Формирование строки в файле Найти похожие ветки