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

← →
Ca$hPirat (2008-10-23 15:00) [0]

Определить сколько различных символов входит в заданный текст, содержащий не более 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;

← →
Сергей М. © (2008-10-23 15:02) [1]

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

← →
Ca$hPirat (2008-10-23 15:04) [2]

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

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

← →
Сергей М. © (2008-10-23 15:06) [3]

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

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

← →
Anatoly Podgoretsky © (2008-10-23 15:47) [4]

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

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

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

array of Integer;

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