| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Количество строк

Страницы:   < 1 2 >

FANAT ©   (2005-05-30 07:17:00) 

Или такого нет.... или я забыл....
как подсчитать количество строк в текстовом файле и взять предпоследнюю строку?

---

TUser   (2005-05-30 07:41:00) [21]

[2] - очень медленный метод

---

TUser   (2005-05-30 07:33:00) [22]

TStringList.LoadFromFile
TStringList.Count
TStringList.Strings

---

Alx2   (2005-05-30 07:32:00) [23]

FANAT ©   (30.05.05 7:17)
Var F : System.Text;
   Prev_S, S : String;
   l_Count : Integer;
begin
AssignFile(F,FileName);
Reset(F);
try
 l_Count :=0;
 S :='';
 while not eof(F) do
 begin
  Prev_S :=S;
  ReadLn(F,S);
  inc(l_count);
 end;
finally
 closefile(F);
end;
end;

---

Rep   (2005-05-30 07:30:00) [24]

Например так:
Var
SL:TSringList;
...

SL.LoadFromFile('sdsdsds.txt');
STR:=SL[SL.Count-2];

---

Страницы:   < 1 2 >

Наверх