Программа, считающая число введенных букв, цифр и смволов

Тема в разделе "Pascal and Delphi", создана пользователем -, 8 июн 2010.

  1. Гость

    Всем привет! Очень надо составить программу на Delphi, выводящую число введенных в Text1 букв, цифр и спецсимволов. Я создал массив, к примеру, с цифрами:
    var
    Form1: TForm1;
    Tsifri: set of Char=['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
    Но вот как посчитать, сколько букв, цифр и спецсимволов, что-то не соображу...
    Спасибо всем, кто откликнется!
     
  2. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.470
    Симпатии:
    27
    конст
    константа_с_цифарми=['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
    константа_с_русскими_буквами=['a','б','я'];
    константа_с_символами=['@','#'];
    =====================================
    фор и:=1 ту ленджть(едит1.текст) ду
    бегин
    иф (едит1.текст[и] ин константа_с_цифарми) зен инк(цифры)
    елсеиф ((едит1.текст[и] ин (['A..Z','a..z']) ор (едит1.текст[и] ин константа_с_русскими_буквами)) зен инк(буквы)
    елсеиф (едит1.текст[и] ин константа_с_символами) зен инк(символы)
    енд

    Ну вот как-то так=)
    пс.
    Шутка конечно, но если переписать на англ язык, то оно будет работать)
     
Загрузка...

Поделиться этой страницей