поиск в строке

← →
nonamez11 © (2008-12-16 16:52) [0]

всем драсти..может кто нибудь поможет с простым вопросом по Delphi???
задание такое,типа дана строка,например вводим в Edit,слова в строке разделены пробелами.И надо посчитать количество слов,содержащих букву м.я начал чо то писать,но он тока первое слово проверяет,дальше не знаю как цикл организовать,не получается..вот что есть

function TForm1.find(S:String):integer;
var
q,slovo:string;
i,j,k:integer;
a:integer;
kolvo:integer;
begin
kolvo:=0;
i:=Pos(" ",S);
a:=Length(S);
if i<>0 then
begin
q:=Copy(S,i+1,Length(S));
j:=Pos(" ",q);
slovo:=Copy(q,0,j-1);
k:=Pos("ì",slovo);
if k<>0 then kolvo:=kolvo+1;
s:=Copy(q,j,a);
Result:=kolvo;

endж

end;

← →
Правильный$Вася (2008-12-16 16:55) [1]

TStringList

← →
nonamez11 © (2008-12-16 17:03) [2]

нет мне без этого надо обойтись,т.е искать в одной строке...надо прост как то зациклить..
пробовал repeat until,не пашет..не знаю блин как зациклить

← →
Сергей М. © (2008-12-16 17:05) [3]

> мне без этого надо обойтись

Коран не велит ?)

← →
nonamez11 © (2008-12-16 17:08) [4]

скорее препод

← →
Правильный$Вася (2008-12-16 17:10) [5]

организуешь перебор символов строки
каждый проверяешь на нужную букву или разделитель
если буква нужная попалась и флаг наличия буквы еще пустой, инкрементируешь счетчик слов с буквой и выставляешь флаг
если попался разделитель слов, сбрасываешь флаг наличия буквы

← →
Правильный$Вася (2008-12-16 17:11) [6]

никаких Pos, Copy и т.п. нафиг не надо

← →
nonamez11 © (2008-12-16 17:12) [7]

то есть просто в цикле проверять каждый символ?эт не слишком накладно в плане производительности?

← →
Сергей М. © (2008-12-16 17:14) [8]

> скорее препод

ну предложи преподу TRegExpr)

Решение в 3 строки текста, никаких TStringList и циклы присутствуют)

← →
nonamez11 © (2008-12-16 17:24) [9]

я не знаю чо эта)

← →
Сергей М. © (2008-12-16 17:28) [10]

> не знаю чо эта

Можно подумать? что ты знаешь "чо эта - TStringList")

СтрингЛист то я знаю.а вот TRegExpr чо хз)

вот это "чо" - http://regexpstudio.com/RU/TRegExpr/TRegExpr.html

← →
Правильный$Вася (2008-12-16 17:40) [13]

> в цикле проверять каждый символ?эт не слишком накладно
> в плане производительности?

Pos делает то же самое
а копирование участков строки гораздо накладнее проверки символов

спасибо за помощь)с меня пиво

поиск в строке Найти похожие ветки