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

210 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 Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

Delphi 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği