| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Текстовый файл и определение номера или конца строки [D7, XP]

cruiser ©   (2008-11-14 00:11:00) 

Здравствуйте уважаемые мастера! У меня есть вопрос, а то я что-то совсем запутался.
Открываю и читаю содержимое текстового файла так:
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
Заранее спасибо!

---

{RASkov}   (2008-11-14 09:42:00) [1]

> [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;

---

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

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

---

Германн   (2008-11-14 00:30:00) [3]

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

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

---

Наверх