[musicFUZZ]

мемо1
едит1
баттон1
лэйбл1

procedure TForm1.Button1Click(Sender: TObject);
var
n,m,i:integer;
Ss,Aa:string;
begin
n:=0;
Aa:=Edit1.Text;
Ss:=Memo1.Text;
for i:=1 to length(Ss) do
begin
if Ss[i]=Aa then
begin
m:=n+1;
ShowMessage('Da');
Label1.Caption:=inttostr(m);
end;
end;
end;
end.

цель себе ставил, что бы по введённому тексту в едит1, находило в мемо1 его, и в лэйбле1 показывало количество найденного, такого, текста.
но находит только, если в едите1 писать один симвл,и что-то не считает количество. Просто шоумесендж выскакивает такое количество раз, соклько встречается, введённый симвл в едит1, в тексте мемо1.

как-то по другому делать нужно?! ( :

[Ozerich]

так ты ведь и проверяешь на наличие одного символа
if Ss[i]=Aa then
ss[i]-1 символ

Есть такая функция Pos(s1,s2:string)
которая проверяет есть ли в s2 строки s1.
Возвращает позицию начала s1 в строке s2

[The Shadow]

Код:

var
s: String;
Res: Integer;
begin
s:=Memo1.Lines.Text;
Res:=0;
while Pos(Edit1.Text, s) > 0 do
begin
Inc(Res);
Delete(s, 1, Pos(Edit1.Text, s));
end;
Label1.Caption:=IntToStr(Res);

[musicFUZZ]

Ребят, а вот, если ищим по мемо1 и взять, найденое в мемо2 вписать? а не кол-во символов в лэйбл, как до этого. пробывал через инсерт, что-то не выходит, обьясните?! ( :