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

Текстовый файл и определение номера или конца строки   Найти похожие ветки 

← →
cruiser ©   (2008-11-14 00:11) [0]

Здравствуйте уважаемые мастера! У меня есть вопрос, а то я что-то совсем запутался.
Открываю и читаю содержимое текстового файла так:
var
 f: TextFile;
 fName: String;
 m, buf: string;
begin
 fName := (MFName);
 if Fileexists(fName) then
 begin
  AssignFile(f, fName);
  Reset(f);

 while not EOF(f) do
 begin
   readln(f,buf);
   m:=m+buf+" "
 end;

При этом весть считанный текст из всех строк приходится разделять пробелом.
Мне нужно определить в этой процедуре номер строки и конец строки. Т.е. в итоге должно получится что-то вроде:
1. Ответ №1
2. Ответ №2
Сейчас получается Ответ№1 Ответ№2

Текст файл выглядит так:
Ответ №1
Ответ №2
Заранее спасибо!

---

← →
Германн ©   (2008-11-14 00:30) [1]

Выбирай одно из двух самых простых решений:
1. TSringList.LoadFromFile
2. if m = "" then m:=buf else m:=m+#13#10+buf;

P.S. Надеюсь что всё, что относится к типу String просто исключено из примера в сабже для сокращения размера текста.

---

← →
cruiser ©   (2008-11-14 00:54) [2]

Спасибо. Попробую.

---

← →
{RASkov} ©   (2008-11-14 09:42) [3]

> [0] cruiser ©   (14.11.08 00:11)
> Открываю и читаю содержимое текстового файла так:

А куда ты его считываешь, в Мемо?
В прочем:
i:=1; m:="";
while not EOF(f) do
begin
  readln(f,buf);
  m:=m+IntToStr(i)+". "+buf+#13#10;
  Inc(i);
end;

---

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

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



Память: 0.45 MB
Время: 0.012 c