Memo da belirtilen harfleri seçme

[ezzel]

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

[ugorkem]

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