Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

"Delphi" Programlama dilinde "Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

program CountSubstring;

{$APPTYPE CONSOLE}

uses
  SysUtils, StrUtils;

var
  str1, sub_string, temp_str: string;
  count: integer;

begin
  str1 := 'Yazılımı çok seviyorum. Yazılım benim herşeyim.';
  sub_string := 'yazılım';

  temp_str := LowerCase(str1);

  count := OccurrencesOfText(sub_string, temp_str);

  Writeln('Adet: ', count);
end.



İlginizi Çekebilir

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi Bir Stringi Ters Çevirmek

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...