ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подсчет количества символов
7 сообщений из 7, страница 1 из 1
Подсчет количества символов
    #32350662
Aleksey777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey777
Участник
Уважаемый All
не подскажите, есть функция, которая возвращает количество указанных символов в строке.
например символ { строка 'ptrtre{fewf{fe{{'
возвращаемое значение 4

сделал так, но может есть функция
Код: plaintext
1.
Length(St)-Length(StringReplace(St,'{','',[rfReplaceAll]));
...
Рейтинг: 0 / 0
11.12.2003, 13:48
| Ответить | Цитировать | Написать  
Подсчет количества символов
    #32350688
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
//кол-во символов Ch в строке S
function CharCount (const S :string; const Ch :Char) :Integer;
var Count :Integer;
begin
  Result :=  0 ;
  for Count := Length (S) downto  1  do
    if AnsiLowerCase (S [Count]) = AnsiLowerCase (Ch)
      then Inc (Result);
end;
...
Рейтинг: 0 / 0
11.12.2003, 13:57
| Ответить | Цитировать | Написать  
Подсчет количества символов
    #32350696
Aleksey777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey777
Участник
спасибо, но написать я и сам могу, я спрашивал есть ли готовая
...
Рейтинг: 0 / 0
11.12.2003, 13:59
| Ответить | Цитировать | Написать  
Подсчет количества символов
    #32350698
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
нет
...
Рейтинг: 0 / 0
11.12.2003, 14:00
| Ответить | Цитировать | Написать  
Подсчет количества символов
    #32350699
Aleksey777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey777
Участник
ок, оставлю свой
спасибо!
...
Рейтинг: 0 / 0
11.12.2003, 14:01
| Ответить | Цитировать | Написать  
Подсчет количества символов
    #32350700
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
ну так и чем готовая от неготовой или не написанной отличаеца - скоростью работы чтоли
...
Рейтинг: 0 / 0
11.12.2003, 14:01
| Ответить | Цитировать | Написать  
Подсчет количества символов
    #32350703
Aleksey777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey777
Участник
читабельностью кода :-)
...
Рейтинг: 0 / 0
11.12.2003, 14:03
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подсчет количества символов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]