Текстовый файл...Сделать в Lazarus

[Ne1StoM]

Создать текстовый файл. Подсчитать количество знаков препинания в нем.

[p51x]

Что подсказать?

Открываем файл, читаем его, если встретили знак препинания счетчик = счетчик + 1, выводим счетчик

[xwicked]

Lazarus ~= Delphi -> примеров полно. Используйте условие if<

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

если встретили знак препинания

> then

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

счетчик = счетчик + 1

else <Что-нибудь>;

выводим счетчик

Edit1.Text := IntToStr(переменная счётчика.);