Скачать: CL | DM;

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

← →
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]

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

Где код?

---

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

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


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

---

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

> ser_ega   (14.04.08 22:38) [2]


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c