Работа с txt файлом.

[serega96]

Ребят, у меня есть задача:
Считывается имя файла, содержащего программу на Pascal. Если такого файла нет на диске, то выдается соответствующее сообщение. Затем подсчитывается общее количество строк. Вносятся изменения в текст считанного файла: в каждую строку, начиная с 75 позиции вставляется «номер строки – количество строк».

У меня есть несколько вопросов:
1)как посчитать общее количество строк?
2)как вставлять начиная с 75 позиции??

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

[Stilet]

1)как посчитать общее количество строк?

var s:TStringList;
begin
 s:=TStringList.Create;
 s.LoadFromFile('файл');
 s.count - Это кол-во строк
 s.insert(75, строка); Это вставка в указанную позицию.
 s.SaveToFile... Сам догадаешся для чего.

 s.free; Чтоб не оставлять мусор
end;

[serega96]

Спасибо большое щас попробую)

[serega96]

Написал в личку. выдаёт ошибку

[kta87]

что за ошибка? на какой строке?

[Stilet]

выдаёт ошибку

Пиши не в личку а на форум.
ошибка потому что ты в uses не подключил модуль ...
А вот какой модуль ты узнаешь в хелпе, набрав в нем и поискав описание TStringList

[serega96]

У меня сейчас другой вопрос, тот уже ушёл.
s.insert нужно в цикл вставлять или нет??
и ещё у меня проблема со вставляемым текстом
он должен выглядеть так: 'номер строки' пробел 'всего строк'
работаю в формах сейчас
можете написать этот коротенький код полностью?)

[kta87]

для пробела используйте

#32

, весь код - получить опыт в программировании , именно ценный опыт, можно только читая книги и применяя информацию на практике самостоятельно набирая код своих программ!

[serega96]

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

для пробела используйте

#32

, весь код - получить опыт в программировании , именно ценный опыт, можно только читая книги и применяя информацию на практике самостоятельно набирая код своих программ!

да я не спорю с этим))
а что с s.insert?

[kta87]

если бы вы хотя бы перевели слово insert то вопрос сам бы отвалился!
Готовый код писать не буду!