подсчет и мемо =)

[nyasha2013]

как посчитать сколько раз в мемо встречается "q " (буква ку и пробел)
=D

[Serge_Bliznykov]

Cnt := 0;
i:=1;
s := Memo1.Text;
while i<Length(s) do begin
  if Copy(s,i,2)='q ' then begin
     Inc(Cnt); {увеличили счётчик }
     i := i + 1;
  end;
  i := i + 1;
end;

если нужно считать без разбора, маленькая q или большая - тогда надо либо использовать UpperCase, либо через или проверить на совпадение и с прописной и со строчной буквами..

[nyasha2013]

нет, не надо большую букву, самое то, спасибо =)

[nyasha2013]

а как сделать чтоб не учитывалось например 'qq ' ?
если поможет, то 'q ' находятся в начале строки

[Serge_Bliznykov]

если поможет, то 'q ' находятся в начале строки

исключительно в начале строки?!
а если в строке так написано (пробелы вначале):

       q q

то считать? И один раз или два (я второй раз привёл не просто так

если банально, посчитать, сколько строк начинаются с "q " (кю - пробел)
то так:

Cnt := 0;
  for i:=0 to Memo1.Lines.Count-1 do
    if Copy(Memo1.Lines[i],1,2)='q ' then Inc(Cnt);

и всё...

[nyasha2013]

Cnt := 0;
for i:=0 to Memo1.Lines.Count-1 do
if Copy(Memo1.Lines[i],1,2)='q ' then Inc(Cnt);

воот)))) спасибо тебе огромное )