Программа, сортирующая символы, введенные в Text1

[Slava_Voronezh]

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

[Vikenty]

Вот сортирует символы в поле

procedure StringSort(var data: string);
var
lo, hi, i, j: Integer;
t: char;
begin
lo := 1;
hi := Length(data);
for i := lo to hi do
   for j := hi downto i + 1 do
     if data[i] > data[j] then
     begin
       t := data[i];
       data[i] := data[j];
       data[j] := t;
     end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=Edit1.Text;
StringSort(s);
Edit1.Text:=s;
end;

[Slava_Voronezh]

Да вот надо по условию еще, чтобы в три Label.Caption выводилось чилсло букв, цифр и спецсимволов. Что надо написать, чтобы сортировалось и выводилось в Label.Caption?
Заранее ОГРОМНОЕ спасибо!

[Snejnaya]

Я создал массив, к примеру, с цифрами:
var
Form1: TForm1;
Tsifri: set of Char=['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];

если я не ошибаюсь, ты создал множество, а не массив, что, в общем правильно. У тебя получится три множества (цифры, буквы, символы), ты каждый символ ch в поле text1 проверяешь на вхождение в каждое из множеств
if (ch in Tcifri) then count_cifri:=count_cifri+1 else
if (ch in Tbukvi) then count_bukvi:=count_bukvi+1 else
count_spec:=count_spec+1;
count_cifri, count_bukvi,count_spec-счетчики цифр, букв и спец. символов.

Что надо написать, чтобы сортировалось и выводилось в Label.Caption?

котлеты-отдельно, мухи-отдельно. В смысле, отдельно сортировка, отдельно подсчет числа цифр, символов, букв, а только потом вывод. Вывод как обычно
Form1.Label1.Caption:=IntToStr(coun t_cifri);

ЗЫ: Есть еще вариант реализовать все без множеств, если рассматривать числовой код каждого символа.
48-57 - цифры
65-90 -заглавные буквы латинского алфавита
97-122-строчные буквы латинского алфавита
остальное - спец. символы

Ord(ch: char): byte; - функция возвращает числовое значение кода символа ch

[Slava_Voronezh]

Snejnaya, а какого типа переменная ch? Мне же надо проверять на вхождение содержимое Edit1.Text, значит, надо перебирать последовательно каждые символы в окне Edit1.Text, как реализовать этот перебор?
Спасибо!

[Snejnaya]

а какого типа переменная ch

char, конечно

значит, надо перебирать последовательно каждые символы в окне Edit1.Text, как реализовать этот перебор

Строка - это массив символов. Соответственно доступ к любому элементу строки осуществляется, как к элементу массива, str[i]

str:=Form1.Edit1.Text;
for i:=0 to length(str) do
begin
ch:=str[i];
....
end;

[Slava_Voronezh]

А str-типа string, верно? Спасибо, буду пробовать!