Delphi Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örneği

301 Okunma Delphi

"Delphi" Programlama dilinde "Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örneği" ile ilgili örnek kod aşağıda verilmiştir. 

program DictExample;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

var
  d1: array[Char, Char] of Integer;
  l1: array[0..2] of Char;
  new_dict: array[Char, Char] of Integer;
  i: Integer;
begin
  d1['A', ' '] := 65;
  d1['B', ' '] := 66;
  d1['C', ' '] := 67;
  d1['D', ' '] := 68;
  d1['E', ' '] := 69;
  d1['F', ' '] := 70;

  l1[0] := 'A';
  l1[1] := 'C';
  l1[2] := 'F';

  for i := 0 to 2 do
    new_dict[l1[i], ' '] := d1[l1[i], ' '];

  for i := 0 to 2 do
    WriteLn(l1[i], ': ', new_dict[l1[i], ' ']);
end.
Dictionary Yarat Filtre Yeni Dizi Delphi

İlginizi Çekebilir

Delphi Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

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

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

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği