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.