Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Nemeziz © (2008-04-14 22:09:00)
Помогите новичку... Возник вопрос: Имеется 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:57:00) [1]

> ser_ega (14.04.08 22:38) [2]

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

AIK (2008-04-14 22:43:00) [2]

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

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

Johnmen (2008-04-14 22:42:00) [3]

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

Где код?

ser_ega (2008-04-14 22:38:00) [4]
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;

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

AIK (2008-04-14 22:22:00) [5]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »