Memo da belirtilen harfleri seçme

[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