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

"Delphi" Programlama dilinde "Bir Stringdeki Her Karakterin Sayısını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.

program CountCharacters;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  str1: string;
  charDict: array of record
    char: Char;
    count: Integer;
  end;
  i, j: Integer;
begin
  str1 := 'YazılımSeviyorum';
  SetLength(charDict, Length(str1));
  
  for i := 1 to Length(str1) do begin
    charDict[i - 1].char := str1[i];
    charDict[i - 1].count := 0;
    for j := 1 to Length(str1) do begin
      if str1[j] = charDict[i - 1].char then
        Inc(charDict[i - 1].count);
    end;
  end;
  
  WriteLn('Sonuc:');
  for i := 0 to High(charDict) do begin
    WriteLn(charDict[i].char + ': ' + IntToStr(charDict[i].count));
  end;
end.



İlginizi Çekebilir

Delphi Bir Stringi Ters Çevirmek

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

Delphi Dört İşlem Yapan Örnek

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği