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.
Memo içersinde arama yapmak.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 29
- Kayıt: 12 Mar 2008 03:29
Re: Memo içersinde arama yapmak.
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;
Re: Memo içersinde arama yapmak.
çok teşekkur ederim...
-
- Üye
- Mesajlar: 29
- Kayıt: 12 Mar 2008 03:29
Re: Memo içersinde arama yapmak.
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;
Re: Memo içersinde arama yapmak.
Bende tekrar çok çok teşekkur ederim çok yardımcı oldunuz.
- ender_arslanturk
- Kıdemli Üye
- Mesajlar: 709
- Kayıt: 18 Şub 2005 03:38
- Konum: İstanbul
Re: Memo içersinde arama yapmak.
Merhaba,
Küçük -ı- büyük -İ- harflerine dikkat ediniz...
Küçük -ı- büyük -İ- harflerine dikkat ediniz...
Re: Memo içersinde arama yapmak.
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.
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.