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 İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

Delphi Dikdörtgenin Alanını Hesaplama Örneği

Delphi Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

Delphi Bir Stringten İlk N Karakteri Kaldırma Örneği

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği