1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 8 июн 2010.

  1. Гость

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

    vital Больной Компом Детектед

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

    Ну вот как-то так=)
    пс.
    Шутка конечно, но если переписать на англ язык, то оно будет работать)
     
Загрузка...
Похожие Темы - Программа считающая число
  1. Sniff
    Ответов:
    7
    Просмотров:
    483
  2. miisha
    Ответов:
    2
    Просмотров:
    131
  3. ChesterCreep
    Ответов:
    1
    Просмотров:
    511
  4. Ondrik8
    Ответов:
    0
    Просмотров:
    113
  5. Marshrutka
    Ответов:
    2
    Просмотров:
    107

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