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

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

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

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

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