Memo da belirtilen harfleri seçme

Memo da belirtilen harfleri seçme - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Memo da belirtilen harfleri seçme (/showthread.php?tid=7229)

Memo da belirtilen harfleri seçme - ezzel - 17-03-2023

merhabalar ben memo da edit1 e yazılı olan harfi memo da kaç tane olduğunu öğrenmek istiyorum yani memodaki kayıttan "e" harfinden kaç tane var gibi

Memo da belirtilen harfleri seçme - ugorkem - 17-03-2023

hazır komutu var mı bilmiyorum ama
2 şekilde yapılabilir

stringReplace : istenilen karakteri silerek ilk ve son uzunluk arasındaki farkı alarak

var adet: integer;
begin
adet :=length(memo1.Text) - length( StringReplace(memo1.Text,'a','',[rfReplaceAll]) );

for döngüsü : tüm karakterleri kontrol ederek tek tek saymak.

var i,adet: integer;
begin
adet:=0;

for i := 0 to length(memo1.Text)-1 do
  if memo1.Text[i] = 'a' then
    adet := adet+1;

ilk yöntemin çok daha hızlı olduğunu söyleyebilirim