Memo içersinde arama yapmak.

[SPAWN33]

Selam arkadaşlar sorun şu;

ben Memo içersinde arama yapıp, aramada kaç tane sonuç bulunduğunu öğrenmek istiyorum.



böyle bir memo var ve ben burda kaç tane Ferdi AĞAÇ olduğunu öğrenmek istiyorum.

[ChangeoveR]

Kod: Tümünü seç

 var
  adet, sayac : Integer;

 begin
  adet := 0;

  for sayac := 0 to Memo1.Lines.Count - 1 do
   if Pos('Ferdi AĞAÇ' , memo1.Lines.Strings[sayac]) > 0 then
   inc(adet);

  Edit1.Text := IntToStr(adet);
 end;

Kolay gelsin...

[SPAWN33]

çok teşekkur ederim...

[ChangeoveR]

Rica ederim ve asagidaki bicimde kullanirsaniz daha iyi olur, tekrar kolay gelsin.

function ara( aranan_kelime : string; nesne : TMemo ) : integer;
var
adet, sayac : Integer;
begin
adet := 0;

for sayac := 0 to nesne.Lines.Count - 1 do
if Pos(aranan_kelime , nesne.Lines.Strings[sayac]) > 0 then
inc(adet);

Result := adet;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(ara('Ferdi AĞAÇ' ,Memo1));
end;

[SPAWN33]

Bende tekrar çok çok teşekkur ederim çok yardımcı oldunuz.

[ender_arslanturk]

Merhaba,

Küçük -ı- büyük -İ- harflerine dikkat ediniz...

[sr1111]

bu code da şöyle bir hata var.
sadece memodaki her satırı 1 tane algiliyor. ayn satırda cok sayıda olabilir.

ferdi agaç, ferdi ağaç, ferdi ağaç
ferdi ağaç

5 tane olması gerek, 2 sayıyor.