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

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

Подскажите функцию для посчёта количества символов... [D6, XP]

vegarulez ©   (2007-09-22 15:27:00) 

Привет всем масетрам!
Подскажите функцию для посчёта количества символов в строке...
если таковая имеется...
допустим есть слово "молоко" мне нужно функцию которая возратит 3 при поиске символа "о"...
Есть ли такая?

---

Zeqfreed   (2007-09-25 23:05:00) [1]

> Anton_K ©   (25.09.07 21:07) [12]

На нет и суда нет. В джаббер принципиально не выходишь? :)

---

Dmitro   (2007-09-25 22:58:00) [2]

> tesseract ©   (25.09.07 22:54) [13]
>
> >  Хотя, кажется, есть какая-то соответствующая директива,
>
> >  которая меняет такое поведение.
>
>
> Нет директивы, есть цикл repeat .. until и do..while.

НЕ do..while, а while..do


> Leonid Troyanovsky ©   (22.09.07 16:18) [3]

РЕСПЕКТ: Нормальный пример для начинающего - все понятно и работает!

---

tesseract   (2007-09-25 22:54:00) [3]

>  Хотя, кажется, есть какая-то соответствующая директива,
>  которая меняет такое поведение.


Нет директивы, есть цикл repeat .. until и do..while.

---

Anton_K   (2007-09-25 21:07:00) [4]

> Хотя, кажется, есть какая-то соответствующая директива,
> которая меняет такое поведение.

Нет, такой директивы нет.

---

Zeqfreed   (2007-09-25 18:28:00) [5]

> Navuh ©   (25.09.07 18:25) [10]

Не хотелось бы, но придется сказать, что таки длина не будет вычисляться каждую итерацию. Хотя, кажется, есть какая-то соответствующая директива, которая меняет такое поведение.

---

Navuh   (2007-09-25 18:25:00) [6]

> for i := 1 to Length(a_sString) do

постоянно вычислять длину в цикле?
а если таких строк, как в Бразилии обизян? ;)

---

Johnmen   (2007-09-23 15:49:00) [7]

Количество символов в строке "молоко" действительно 6...:)

---

Denis_   (2007-09-23 15:30:00) [8]

> А должна 6, поскольку количество равно 6

ну Вы блин даёте! (С)

---

Суслик   (2007-09-23 15:05:00) [9]

Считаю функцию из [1] не совсем корректной, ибо строки в дельфи могут содержать символы #0, которые не являются  признаком конца строки.

---

Anatoly Podgoretsky   (2007-09-23 15:05:00) [10]

> функцию для посчёта количества символов в строке...

---

Dimaxx   (2007-09-23 15:02:00) [11]

> А должна 6, поскольку количество равно 6

В слове "молоко" 6 букв "о"?? Оо

---

Anatoly Podgoretsky   (2007-09-22 16:19:00) [12]

> vegarulez  (22.09.2007 15:27:00)  [0]

А должна 6, поскольку количество равно 6

---

Leonid Troyanovsky   (2007-09-22 16:18:00) [13]

> vegarulez ©   (22.09.07 15:49) [2]


function CountChars(const a_sString: string; a_cChar: Char): Cardinal;
var
 i: Cardinal;
begin
Result := 0;
for i := 1 to Length(a_sString) do
   if (a_sString[i] = a_cChar) then
     inc(Result);
end;


--
Regards, LVT.

---

vegarulez   (2007-09-22 15:49:00) [14]

пасип

---

Ping   (2007-09-22 15:36:00) [15]

function CountChars(const a_sString: string; a_cChar: Char): integer;
var
 P: PChar;
begin
 Result := 0;
 P := PChar(a_sString);
 while (P^ <> #0) do
 begin
   if (P^ = a_cChar) then
     Result := Result + 1;
   P := CharNext(P);
 end;
end;

---

Наверх