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

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

← →
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("&#236;",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")

---

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

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

---

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

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

---

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

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

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

---

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

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

---

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

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



Память: 0.48 MB
Время: 0.011 c