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

"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.



İlginizi Çekebilir

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

Delphi Dört İşlem Yapan Örnek

Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği

Delphi 1'den 100'e Kadar Asal Sayı Toplamı Örneği

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği