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

247 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 Bir Sayının Faktöriyelini Bulma Örneği

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

Delphi Dört İşlem Yapan Örnek

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği