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

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

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

---

← →
Ega23 ©   (2004-04-12 17:37) [9]

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;

Вроде так.

---

← →
galexis ©   (2004-04-12 17:41) [11]

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

---

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

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



Память: 0.47 MB
Время: 0.02 c