Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: 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 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
14-1081537545
vuk
2004-04-09 23:05
2004.05.02
Цены на некоторые продукты Borland. Может кто в курсе?


6-1078848315
SH
2004-03-09 19:05
2004.05.02
Сокеты в Delphi 7


3-1080925781
Orvat
2004-04-02 21:09
2004.05.02
Понимаю, что не на тот сайт защел, но...


1-1081708270
Артем
2004-04-11 22:31
2004.05.02
"Canvas does not allow drawing"


6-1078485027
Flounder
2004-03-05 14:10
2004.05.02
как создать нечто подобное FileSender