| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Посчитать количество различных символов в тексте

Ca$hPirat ©   (2008-10-23 15:00:00) 

Определить сколько различных символов входит в заданный текст, содержащий не более k символов и оканчивающийся точкой (в сам текст точка не входит). Я сделал так:


procedure Tform_Test.Button4Click(Sender: TObject);
var
 L: TStringList;
 S: string;
 i, k, Len: Integer;
begin
 S := 'T ;;-es, t';
 Len := Length(S);
 L := TStringList.Create;
 try
   for i := 1 to Len do
     if (L.IndexOf(S[i]) = -1) and (i <> Len) then
       L.Add(S[i]);
   ShowMessageFmt('%d', [L.Count]);
 finally
   FreeAndNil(L);
 end;
end;
end;


---

Anatoly Podgoretsky   (2008-10-23 16:57:00) [1]

array of Integer;

---

wl   (2008-10-23 16:54:00) [2]

я бы сделал массив bool от [пробела до буквы я], далее пробегаешь по строке и устанавливаешь в true элемент массива по индексу буквы.
при желании можно даже посчитать количество отдельных букв.

---

Anatoly Podgoretsky   (2008-10-23 15:47:00) [3]

> Ca$hPirat  (23.10.2008 15:04:02)  [2]

Зачем? Сдал работу и забыл и какая тебе разница кривой код или нет, а тем более еще и альтернативные решения, например конгруэнтно радикальной интерпритации.

---

Сергей М.   (2008-10-23 15:06:00) [4]

> помимо использования StringList'a


А смысл ?
Ты и стринглист-то не по уму использовал, а уже ищешь альтернативы ..

---

Ca$hPirat   (2008-10-23 15:04:00) [5]

> Ну сделал и сделал)Или ты захвалиться хотел ?)

Нет. Просто хотел узнать альтернативные варианты решения, помимо использования StringList'a

---

Сергей М.   (2008-10-23 15:02:00) [6]

Ну сделал и сделал)
Или ты захвалиться хотел ?)

---

Наверх