Скачать: CL | DM;

Символы в строках   Найти похожие ветки 

← →
lime   (2002-08-14 22:58) [0]

Как организовать поиск количества заданного символа в произвольной строке? Понятно, что через POS, ну а конкретнее?

---

← →
Геннадий   (2002-08-14 23:06) [1]

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) [2]

Количество через POS нельзя, тебе надо сделать цикл пройтись по всей строке и подсчитать количество

---

← →
lime   (2002-08-14 23:19) [3]

А... ну умных людей все-таки мое зеркало по утрам еще нескоро станет отражать :-)
Я думал что-то делать в цикле вроде
while Pos("s", TempString)<>0 do
begin
Inc(SCount);
Delete(TempString,1,Pos("s", TempString))
end;

Спасибо за помощь

---

← →
Геннадий   (2002-08-14 23:23) [4]

Да какая разница - главное, чтоб работало! :))

---

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

Скачать: CL | DM;



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