nesco писал(а):
А с чего бы это должно получиться, конкретный пример можноМожно:
code_33897.txt
А по поводу подсчета строк, добавить переменную LNum, CLPos и заменить пропуск пробелов в GetToken:
#pas
while Line[LPos] in [,#9,#10,#13] do begin
inc(LPos);
if not (Line[LPos] in [#10,#13]) then inc(CLPos);
if Line[LPos] = #10 then begin
inc(LNum);
CLPos := 0;
end;
end;
Поиск
Друзья
Администрация