Символы в строках

← →
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]

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

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