String üzerinden enum değeri çağırma

[Abdullah ILGAZ]

Merhaba,

Bildiğiniz üzere enum yapısı gereği string değerleri muhafaza etmiyor. Peki enum içindeki değerleri string ile eşleştirip enum değerini vererek string alabileceğimiz bir fonksiyonu nasıl yaparız? İlk çözümleyen +10 puanı alır. Kolay gelsin


Dip: Sabit string array kullanmak serbesttir.

[uparlayan]

(18-09-2017, Saat: 11:59)Abdullah Ilgaz Adlı Kullanıcıdan Alıntı: Merhaba,

Bildiğiniz üzere enum yapısı gereği string değerleri muhafaza etmiyor. Peki enum içindeki değerleri string ile eşleştirip enum değerini vererek string alabileceğimiz bir fonksiyonu nasıl yaparız? İlk çözümleyen +10 puanı alır. Kolay gelsin


Dip: Sabit string array kullanmak serbesttir.

interface 

type
  TDil = (TR, EN, AR, RU);
  TDilHelper = record helper for TDil
    private
    protected
    public
      function SetDil(aDil: String): TDil; overload;
      function SetDil(aDilID: Integer): TDil; overload;
      function ToString: string;
      function ID: Integer;
  end;

implementation

{ TDilHelper }

function TDilHelper.SetDil(aDil: String): TDil;
begin
 if (aDil = 'TR') then Result := TR else
 if (aDil = 'EN') then Result := EN else
 if (aDil = 'AR') then Result := AR else
 if (aDil = 'RU') then Result := RU;
 Self := Result;
end;

function TDilHelper.ID: Integer;
begin
 case Self of
   TR: Result := 1;
   EN: Result := 2;
   AR: Result := 3;
   RU: Result := 4;
 end;
end;

function TDilHelper.SetDil(aDilID: Integer): TDil;
begin
 case aDilID of
   1: Result := TR;
   2: Result := EN;
   3: Result := AR;
   4: Result := RU;
 end;
 Self := Result;
end;

function TDilHelper.ToString: string;
begin
 case Self of
      TR : Result := 'TR';
      EN : Result := 'EN';
      AR : Result := 'AR';
      RU : Result := 'RU';
      else Result := 'TR'; // Default değerdir...
 end;
end;

[Fesih ARSLAN]

Merhaba,
Puan ihtiyacım olduğundan değil, kaynak olsun diye yazıyorum. 

Uses RTTI

 ShowMessage(
  TRttiEnumerationType.GetName<TOSVersion.TArchitecture>(TOSVersion.Architecture)
);

Enum tip tanımı



Sonuç: 

[Fesih ARSLAN]

Klasik bir yöntem; Her enum tipini bir sabit değere eşlemek.

Örnek:

Enum Tip tanımı

type
  TTMSMQTTHataTipleri = record
   Tip: TTMSMQTTConnectionStatus;
   Ad: String;
 end;

Sabit tanımı

const
  TMSMQTTHataTipleri: array [0 .. 8] of TTMSMQTTHataTipleri =
   ((Tip: TTMSMQTTConnectionStatus.csNotConnected;
   Ad: 'Sunucu: Bağlantı sağlanamadı'),
   (Tip: TTMSMQTTConnectionStatus.csConnectionRejected_InvalidProtocolVersion;
   Ad: 'Sunucu: Protokol versiyon uyuşmazlığı hatası'),
   (Tip: TTMSMQTTConnectionStatus.csConnectionRejected_InvalidIdentifier;
   Ad: 'Sunucu: Tanımlama hatası'),
   (Tip: TTMSMQTTConnectionStatus.csConnectionRejected_ServerUnavailable;
   Ad: 'Sunucu: Sunucuya ulaşılamıyor'),
   (Tip: TTMSMQTTConnectionStatus.csConnectionRejected_InvalidCredentials;
   Ad: 'Sunucu: Kimlik Bilgileri hatası'),
   (Tip: TTMSMQTTConnectionStatus.csConnectionRejected_ClientNotAuthorized;
   Ad: 'Sunucu: Yetki hatası'),
   (Tip: TTMSMQTTConnectionStatus.csConnectionLost;
   Ad: 'Sunucu: bağlantı koptu'), (Tip: TTMSMQTTConnectionStatus.csConnecting;
   Ad: 'Sunucu: bağlanıyor'), (Tip: TTMSMQTTConnectionStatus.csReconnecting;
   Ad: 'Sunucu: Yeniden bağlantı sağlanıyor'));

Kullanımı

TMSMQTTHataTipleri[ord(AStatus)].Ad

 

AStatus: Enum değeridir.

[ismailkocacan]

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
 System.SysUtils,
 System.Generics.Defaults,
 System.Generics.Collections;

type
 Tlang = (TR, EN, TAR);

function GetNameFromEnum(ALang: Tlang): string;
var
 ADict: TDictionary<Tlang, string>;
begin
 Result := '';
 ADict := TDictionary<Tlang, string>.Create();
 try
   ADict.Add(TR, 'Türkçe');
   ADict.Add(EN, 'İngilazca');
   ADict.Add(TAR, 'Tarzanca');
   ADict.TryGetValue(ALang, Result);
 finally
   ADict.Free;
 end;
end;

begin
  Writeln(GetNameFromEnum(TR));
end.

[uparlayan]

Aynı amaca ulaşan kaç tane kod örneği çıkacağını çok merak ediyorum

[Fesih ARSLAN]

(18-09-2017, Saat: 11:59)Abdullah Ilgaz Adlı Kullanıcıdan Alıntı: Merhaba,

Bildiğiniz üzere enum yapısı gereği string değerleri muhafaza etmiyor. Peki enum içindeki değerleri string ile eşleştirip enum değerini vererek string alabileceğimiz bir fonksiyonu nasıl yaparız? İlk çözümleyen +10 puanı alır. Kolay gelsin


Dip: Sabit string array kullanmak serbesttir.

Bu konuya yazdığım 2 cevap/yorumdan toplam 32 puan almışım.    10 Puana razıydım. 
Şaka bir tarafa; şüphesiz ki bu tip sorular/algoritmalar, platformumuza büyük katkılar sağlıyor. Bu vesile ile sorunuz ve sağlamış olduğunuz katkıdan dolayı teşekkür ederim.
Diğer üyelerimizin de bu akıma (soru/cevap) katılmasını bekliyorum.
Yeri gelmişken belirtmekte fayda var;  formda özel bir üyelik grubu (AlgoritmikBeyin) oluşturduk. 
AlgoritmikBeyin grubu, üyelerin bildiklerini paylaşması (veya içindeki devi uyandırma da diyebiliriz. Bazı üyelerimiz bildiği halde, bilgisini paylaşmıyor/yazmaya üşeniyor) veya bilmese bile fikir yürütmesini teşvik etmek için soru soran üyelerimizden oluşuyor. 
Sormuş oldukları soruya doğru veya en yakın cevabı veren üyelere, kendi kanaatleri doğrultusunda yüksek puanlar verebiliyorlar.
Bu grupta şimdilik 2 üyemiz ve bir Süper Moderatörümüz var;

* Tuğrul HELVACI +/- 100 Puan verebiliyor.
* Abdullah Ilgaz +/- 10 Puan verebiliyor.
* ismailkocacan +/- 10 Puan verebiliyor.

[The_aLiEn]

Şöyle bir kullanım da yapılabilir:

type

  TMyEnum = (e1, e2,  e3, e5, e4);

const
  cEnumStr : array [TMyEnum] of string = ('Enum1', 'Enum2', 'Enum3', 'Enum5', 'Enum4');

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  e: TMyEnum;
begin
  for e := Low(TMyEnum) to High(TMyEnum) do
    ShowMessage(cEnumStr[e]);
end;

[uparlayan]

TypInfo kullanmak isteyenler için;

type
 TFalan = (Falan, Filan, Inter, Milan);

implementation

uses
 System.TypInfo;

procedure Test;
var
 x: TFalan;
begin
 for x := Low(TFalan) to High(TFalan) do ShowMessage( GetEnumName(TypeInfo(TFalan), Ord(x)) );
end;

[Tuğrul HELVACI]

Falan, Filan, İnter, Milan :-D