Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подсчет количества символов / 7 сообщений из 7, страница 1 из 1
11.12.2003, 13:48
    #32350662
Aleksey777
Aleksey777
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет количества символов
Уважаемый All
не подскажите, есть функция, которая возвращает количество указанных символов в строке.
например символ { строка 'ptrtre{fewf{fe{{'
возвращаемое значение 4

сделал так, но может есть функция
Код: plaintext
1.
Length(St)-Length(StringReplace(St,'{','',[rfReplaceAll]));
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 13:57
    #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:59
    #32350696
Aleksey777
Aleksey777
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет количества символов
спасибо, но написать я и сам могу, я спрашивал есть ли готовая
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 14:00
    #32350698
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет количества символов
нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 14:01
    #32350699
Aleksey777
Aleksey777
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет количества символов
ок, оставлю свой
спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 14:01
    #32350700
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет количества символов
ну так и чем готовая от неготовой или не написанной отличаеца - скоростью работы чтоли
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2003, 14:03
    #32350703
Aleksey777
Aleksey777
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет количества символов
читабельностью кода :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подсчет количества символов / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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