scoped enums ?

[deltas]

S.a arkadaşlar.
Sorunum aşşağıdaki kod ne işe yarıyor?

Kod: Tümünü seç

 {$SCOPEDENUMS ON}

Bunu kullandığımda hata veriyor. Bunu nasıl düzeltebilirim. uses kısmına ekleme mi yapmam gerekiyor

Kod: Tümünü seç

invalid compiler directive: 'SCOPEDENUMS ' a line 75

[aslangeri]

s.a.
hangi delphi versiyonunu kullanıyorsunuz kodlar hangi versiyonda yazılmış.
$ ile başlayan komutlar compiler direktifleridir.
mesajda zaten direktifi tanımadığını belirtmiş.
o satırın başına // işareti koyarsan derlerken dikkate almaz ama başka problemlere neden olabilir.
kolay gelsin.

[deltas]

bds 2006 ve 7.0 her iki sürümde de aynı hatayı alıyorum. dedğiniz gibi kodları sildiğimde iki kod arasında kalan kısımda hata alıyorum. bu tanımlama ne işe yarıyor onu anlamadım.

[mehmetcan]

http://chrisbensen.blogspot.com/2007/10 ... enums.html

Bu sitede kullanım amacı gösterilmiş. Anladıgım kadarıyla tanımlanan enumdaki tanımlamalar sadece türle birlikte kullanılabiliyor. Yani foo daki A,B,Foo foo olmadan da kullanılabilirken, scopedenums on iken yapılan tanımlamalarda birlikte kullanmak gerekiyor.

type
TFoo = (A, B, Foo);
{$SCOPEDENUMS ON}
TBar = (A, B, Bar);
{$SCOPEDENUMS OFF}

begin
WriteLn(Integer(Foo));
WriteLn(Integer(A)); // TFoo.A
WriteLn(Integer(TBar.B));
WriteLn(Integer(TBar.Bar));
WriteLn(Integer(Bar)); // Error
end;

Daha anlasilir bir örnek

type
{$SCOPEDENUMS ON}
TGun = (pazartesi,sali,carsamba);
{$SCOPEDENUMS OFF}

Tanımlıysa

Writeln(integer(sali)); // hata veriyor
writeln(integer(TGun.sali)); // calisiyor