Delphi Dictionary Key Value Değerlerini Ters Çevirmek

209 Okunma Delphi

"Delphi" Programlama dilinde "Dictionary Key Value Değerlerini Ters Çevirmek" ile ilgili kod örneği aşağıda belirtilmiştir. 

program ReverseMapping;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  asciiDict: TDictionary;
  newDict: TDictionary;
  key: string;
  value: Integer;

begin
  asciiDict := TDictionary.Create();
  asciiDict.Add('A', 65);
  asciiDict.Add('B', 66);
  asciiDict.Add('C', 67);
  asciiDict.Add('D', 68);


  newDict := TDictionary.Create();
  for key in asciiDict.Keys do begin
    asciiDict.TryGetValue(key, value);
    newDict.Add(value, key);
  end;

  for key in newDict.Keys do begin
    Writeln(key, ' => ', newDict.Items[key]);
  end;

  asciiDict.Free();
  newDict.Free();
end.
Dictionary Key Value Tes Çevir Delphi

İlginizi Çekebilir

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

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

Delphi Bir Sayının Faktöriyelini Bulma Örneği

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

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