program Test;
const
L = ['а'..'я', 'А'..'Я'];
N = ['0'..'9'];
var
f: Text;
s: AnsiString;
cl, cn, i: Integer;
begin
Assign (f, 'text.txt'); // здесь название файла
Reset (f);
cl := 0;
cn := 0;
while not Eof (f) do begin
ReadLn (f, s);
for i := 1 to Length (s) do begin
if s [i] in L then
Inc (cl)
else if s [i] in N then
Inc (cn);
end;
end;
Close (f);
WriteLn ('Русских букв: ', cl);
WriteLn ('Цифр: ', cn);
ReadLn;
end.
Объяснение:
текстовый файл должен находиться в папке с программой, иначе укажите полный путь к нему. Кодировка файла ANSI - кириллица 1251 или OEM -русский 866.
Середовище Lazarus за замовчуванням створює обробник події як процедуру. Процедура - це окремо виділена частина програми, яка має своє ім’я і яку можна за цим іменем запустити на виконання.
Наприклад, якщо потрібно пов’язати деяку процедуру з подією Click для форми, то слід:
1. Вибрати форму.
2. Відкрити вкладку Події у вікні Інспектор об’єктів.
3. Вибрати подію onclick. Поле праворуч від тексту onclick стане поточним і в ньому з’явиться курсор.
4. Клацнути двічі у цьому поточному полі.
У результаті виконання цього алгоритму в полі onclick на вкладці Події з’являється текст FormClick (англ. Form Click - клацання форми), а у вікні редактора тексту проекту на вкладці Unitl з’являється заготовка для тексту процедури з іменем TForml.FormClick, команди якої й будуть виконуватися при настанні події Click з формою