Как отследить перевод строки в текстовом файле?

← →
galexis © (2004-04-12 17:08) [0]

Анализирую log-файл. Закачиваю его в память и посимвольно переношу все в БД. Как записать символ перевода строки? Надо для условия if buffer[k]="символ перевода строки" then ...

← →
serge35 (2004-04-12 17:10) [1]

Лучше файл считать построчно. Есть такая функция.

← →
serge35 (2004-04-12 17:10) [2]

readln

← →
galexis © (2004-04-12 17:14) [3]

Пытаюсь найти как ее (readln) использовать. Что то в справке не очень подробно

← →
TButton © (2004-04-12 17:19) [4]

символ перевода (конца) строки носит гордое имя #13#10

← →
serge35 (2004-04-12 17:22) [5]

var
f1: textfile;
str: string;

begin

assignfile(f1,имя_файла);
reset(f1);
readln(str,f1);

end;

Надеюсь в цикле запустить будет не сложно.

← →
Ega23 © (2004-04-12 17:27) [6]

Или
var
List:TStringList;

begin
List:=TStringList.Create;
List.LoadFromFile(FileName);
for i:=0 to List.Count-1 do
begin
....
List.Strings[i]
...
end;

end;

← →
galexis © (2004-04-12 17:35) [7]

>serge35

а как всетаки в цикле запустить? Что написать в while?

← →
TButton © (2004-04-12 17:36) [8]

while not EOF(f) do
begin
...

while not Eof(f1) do
readln(str,f1);

← →
serge35 (2004-04-12 17:37) [10]

while not f1.eof do
begin
readln(str,f1);
--Добавление записи в таблицу

end;

Вроде так.

вот так не работает while not f1.eof do
а так while not Eof(f1) do работает
Всем спасибо

Как отследить перевод строки в текстовом файле? Найти похожие ветки