| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Символы в строках
lime © (2002-08-14 22:58:00)Как организовать поиск количества заданного символа в произвольной строке? Понятно, что через POS, ну а конкретнее?
Геннадий (2002-08-14 23:23:00) [1]Да какая разница - главное, чтоб работало! :))
lime (2002-08-14 23:19:00) [2]А... ну умных людей все-таки мое зеркало по утрам еще нескоро станет отражать :-)
Я думал что-то делать в цикле вроде
while Pos("s", TempString)<>0 do
begin
Inc(SCount);
Delete(TempString,1,Pos("s", TempString))
end;
Спасибо за помощь
Геннадий (2002-08-14 23:06:00) [3]function GetCountCharFromString(Ch: Char; S: String): Byte;
var
B : Byte;
C : Byte;
begin
C:= 0; // C - Count :)
For B:=1 to Length(S) do
If S[B] = Ch then Inc(C);
Result:= C;
end;
Вот, например, так. А при чём здесь Pos ? :))
Anatoly Podgoretsky (2002-08-14 23:06:00) [4]Количество через POS нельзя, тебе надо сделать цикл пройтись по всей строке и подсчитать количество
| |
