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

Как программно узнать количество строк в текстовом файле?   Найти похожие ветки 

← →
HaeMa   (2006-06-08 17:04) [0]

Помогите пожалуйста!!!

---

← →
begin...end ©   (2006-06-08 17:10) [1]

var
 I: Integer;
 F: TextFile;
begin
 ...
 I := 0;
 while not EOF(F) do
 begin
   ReadLn(F);
   Inc(I)
 end
 ...
end

---

← →
tesseract ©   (2006-06-08 17:11) [2]

два варианта - посмотреть сколько раз выполниться readln до EOF.

Второй - пролистать файл на количество символов с кодом 10, те перевода строки.

---

← →
Amoeba ©   (2006-06-08 17:14) [3]

> Второй - пролистать файл на количество символов с кодом
> 10, те перевода строки

Это удобно сделать отобразив в память и просмотрев как массив побайтово.

---

← →
Ega23 ©   (2006-06-08 17:21) [4]

function StringsItFile(const FileName:String):Integer;
var
List:TStringList;
begin
List:=TStringList.Create;
try
  List.LoadFromFile(FileName);
  Result:=List.Count;
finally
 List.Free;
end;  
end;

---

← →
Fenik ©   (2006-06-17 20:58) [5]

Const
const_buf_size=65536;

function GetLinesCount2(const p_strFileName: string): Int64;
var
 Buf: array of Byte;
 i, nReaded: Integer;
begin
 Result:=0;
 SetLength(Buf,const_buf_size);
 with TFileStream.Create(p_strFileName,fmOpenRead) do
 try
   repeat
    nReaded:=Read(Buf[0],Length(Buf));
    for i:=0 to nReaded-1 do
      if Buf[i]=13 then Inc(Result);
   until nReaded=0;
 finally
   free;
 end;
end;

---

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

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



Память: 0.46 MB
Время: 0.027 c