Arkadaşlar liztbox içerisinde yer alan listede aradığım kelimeden kaç tane var bulabilir miyim ?
listbox1.ItemIndex:=ListBox1.Items.IndexOf('Bilgisayar Masası '); bu kodla sadece var olup olmadığını anlayabiliyorum ama bana sayısı lazım .
listbox ta Aradığım kelime kaç tane var
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
listbox ta Aradığım kelime kaç tane var
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
Re: listbox ta Aradığım kelime kaç tane var
https://stackoverflow.com/questions/728 ... -in-delphi
Muhtelif yollar var.
Muhtelif yollar var.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Re: listbox ta Aradığım kelime kaç tane var
Kod: Tümünü seç
function Occurrences(const Substring, Text: String): Integer;
var
Offset: Integer;
begin
Result := 0;
Offset := PosEx(Substring, Text, 1);
while Offset <> 0 do
begin
Inc(Result);
Offset := PosEx(Substring, Text, Offset + Length(Substring));
end;
end;
procedure TForm8.Button1Click(Sender: TObject);
var
I, Sayac: Integer;
begin
Sayac := 0;
for I := 0 to ListBox1.Items.Count - 1 do
Sayac := Sayac + Occurrences(AnsiLowerCase(Edit1.Text), AnsiLowerCase(ListBox1.Items[I]));
ShowMessage(IntToStr(Sayac));
end;