Форум: "Начинающим";
Текущий архив: 2008.11.30;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
wl ©   (2008-10-23 16:54) [5]

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

---

← →
Anatoly Podgoretsky ©   (2008-10-23 16:57) [6]

array of Integer;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.11.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c