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

[МирзоАкмал]

Сообщение от FaTaL

Можно через TStringList

function GetStringCount (FilePath : string) : integer;
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile (FilePath);
  result := sl.Count;
  sl.Free;
end;

где FileName - полный путь к файлу.

Кстати, что будет быстрее и правильнее, TStringList или TextFile и AssignFile?

А как вывести результат в edit

[FaTaL]

Edit1.Text := GetStringCount ('Путь к Вашему файлу');