Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Memo da belirtilen harfleri seçme
#1
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
Cevapla
#2
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
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Memo içerisinde 4 kolonlu tablo tipi string göstermek (String Format) Syntax 4 1.521 05-05-2023, Saat: 11:02
Son Yorum: Bay_Y
  Rest debugger Memo Yazi Gönder gonulali 2 611 14-04-2023, Saat: 22:24
Son Yorum: gonulali
  CXGrid kayıt seçme cemakkus 3 989 20-12-2022, Saat: 08:59
Son Yorum: cemakkus
  QR Memo 'da İki Yana Yaslama sunbeki 4 996 26-03-2022, Saat: 19:08
Son Yorum: MuhammedYasir
  memo alt satıra inme gonulali 5 2.091 22-03-2021, Saat: 21:19
Son Yorum: gonulali



Konuyu Okuyanlar: 1 Ziyaretçi