Приклад написання програми для підрахунку кількості знаків у тексті.

Приклад написання програми для підрахунку кількості знаків у тексті.

 

Приклад написання програми для підрахунку кількості знаків у тексті. Цикл від i: = 0 до Memo1.Lines.Count (кількості рядків у Memo1). Вважається довжина кожного рядка (k: = length (Memo1.Lines [i])), і підсумовується (p: = p + k). Після чого отримане число виводиться. Edit1.text: = FloatToStr (p).