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

  • Автор темы Guest
  • Дата начала
G

Guest

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

vital

Больной Компом Детектед
29.01.2006
2 432
33
#2
конст
константа_с_цифарми=['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
константа_с_русскими_буквами=['a','б','я'];
константа_с_символами=['@','#'];
=====================================
фор и:=1 ту ленджть(едит1.текст) ду
бегин
иф (едит1.текст[и] ин константа_с_цифарми) зен инк(цифры)
елсеиф ((едит1.текст[и] ин (['A..Z','a..z']) ор (едит1.текст[и] ин константа_с_русскими_буквами)) зен инк(буквы)
елсеиф (едит1.текст[и] ин константа_с_символами) зен инк(символы)
енд

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