Работа со строками

[Иринкин]

Здравствуйте! Пожалуйста, помогите написать программу в Delphi, мне сказали задача легкая, но я в программировании совсем чайник.
Задача такая: Пользователь вводит строку в текстовое поле. Строка абсолютно произвольная. Нажимает на кнопку и на экран выходит результат, какие буквы повторились и сколько раз. Т.е., например, если введено asreetganat, то на экран выйдет :
a=3
e=2
t=2
Выполнить надо использовав массив. Т.е. мы считываем строку по каждому символу в массив, там уже ищем совпадения, считаем и выводим. Я понимаю алгоритм действий, но не представляю как реализовать!

Заранее огромное спасибо!

[Вадим Мошев]

Выполнить надо использовав массив. Т.е. мы считываем строку по каждому символу в массив

Строка - в общем-то и есть массив
============
Что у вас уже готово? Наработки есть?

если нет, я могу вам помочь за небольшое вознаграждение

[Poma][a]

Строка - в общем-то и есть массив

Со строкой получится не так красиво..
А вот если a : array ['A'..'Z'] of Integer; (и не забывать UpCase'ать), то будет более-менее хорошо..

[type_Oleg]

Да, и строку, введенную в текстовое поле по имени Edit1, зовут Edit1.Text
Вот и работайте с ней, как с массивом символов.

Например,введете в поле Edit1 "я криведко" , Edit1.Text[3] будет равно к

[Иринкин]

Сообщение от Вадим Мошев

Строка - в общем-то и есть массив
============
Что у вас уже готово? Наработки есть?

если нет, я могу вам помочь за небольшое вознаграждение

Ну из наработок только интерфейс пока и некоторые другие жалкие попытки, так что нет, наработок пока нет

Сообщение от type_Oleg

Да, и строку, введенную в текстовое поле по имени Edit1, зовут Edit1.Text
Вот и работайте с ней, как с массивом символов.

Например,введете в поле Edit1 "я криведко" , Edit1.Text[3] будет равно к

Спасибо, если честно даже не подумала об этом. Буду пробовать!
А может быть подскажите, как лучше сделать подсчет одинаковых элементов? Просто с помощью счетчика и while?

[Poma][a]

А может быть подскажите, как лучше сделать подсчет одинаковых элементов? Просто с помощью счетчика и while?

Ну можно так :

a : array ['A'..'Z'] of Integer;

for i := 1 to Length(Edit1.Text) do
     Inc (a[UpCase(Edit1.Text[i])]);

Или так :

for ch := 'A' to 'Z' do begin
    tcnt := 0;
    for i := 1 to Length(Edit1.Text) do
        if UpCase (Edit1.Text[i]) = ch then
            Inc (tcnt);
    WriteLn (ch, ' : ', tcnt)
end;

[type_Oleg]

Можно и while, но лучше for. Наверное, будет два цикла, один вложенный в другой.
Первый проходит все символы строки от 1 до конца стоки (длина строки - Length(Edit1.Text)),
во втором - ищется совпадение с текущим символом.

Но это так, на первый взгляд. Может есть способ и проще, поэлегантнее.

PS. Оппа .. пока писал, опередили.
Poma][a, а зачем ей этот WriteLn, если у нее Delphi, и не в консоли?

[Иринкин]

Буду пробовать, спасибо!

[Poma][a]

Poma][a, а зачем ей этот WriteLn, если у нее Delphi, и не в консоли?

А кто ж знает как у Вас в Дельфи надо выводить?

[Иринкин]

А как сделать вывод на Label? Label1.Caption:=....
Как бы это (ch, ' : ', tcnt) сюда записать?

Ой, или можно ShowMessage(ch, ' : ', tcnt)???