ماهي فائدة Type énuméré - نسخة قابلة للطباعة

ماهي فائدة Type énuméré - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهي فائدة Type énuméré (/showthread.php?tid=3465)

ماهي فائدة Type énuméré - yassine_hell - 29-09-2011

السلام عليكم

ماهي فائدة Type énuméré فيturbo pascal اذا لا نستطيع عمل read(ln) او write(ln) او حتى اسناد قيمة لها من متغير اخر...

شكرا

ماهي فائدة Type énuméré - paix144 - 29-09-2011

و عليكم السلام ورحمة
عندي التعريف باللغة الفرنسية
عذرا لا أستطيع تجرمته

كود :
Un type énuméré est un type dont les variables associées n'auront qu'un nombre très limité de valeur (au maximum 256 différentes possibles). Un type énuméré sert de définition à un ensemble mathématique par l'intermédiaire de la syntaxe Set Of,La définition d'un type énuméré conciste à déclarer une liste de valeurs possibles (256 au maximun) associées à un type, c'est-à-dire qu'une variable de type énuméré aura l'une et une seule de ces valeurs et pas une autre.

كود :
Program exemple32 ;
Type jours=(dim, lun, mar, mer, jeu, ven, sam) ;
Var today : jours ;
BEGIN
today := mar ;
today:=Succ(today) ;
Inc(today,2) ;
Case today Of
dim : WriteLn('Dimanche') ;
lun : WriteLn('Lundi') ;
mar : WriteLn('Mardi') ;
mer : WriteLn('Mercredi') ;
jeu : WriteLn('Jeudi') ;
ven : WriteLn('Vendredi') ;
sam : WriteLn('Samedi') ;
Else WriteLn('autre, ',Ord(today)) ;
End;
END.

المصدر

كود :
http://cyberzoide.developpez.com/info/turbo/chap20.php3#enum

ماهي فائدة Type énuméré - yassine_hell - 30-09-2011

شكرا على الرد
لكن قرات هذا المقال من قبل , و اعرف التعريف , لكن ما الغاية منه ,
في مثالك المبرمج حدد

كود :
today := mar ;

ثم

كود :
today:=Succ(today) ;

ما الفائدة اذا لم يستطع مستخدم البرنامج الذي لا يستطيع التغيير على الـsource تغير الـمتغير "today" بنفسه

ماهي فائدة Type énuméré - paix144 - 01-10-2011

...لكن ما الغاية منه لأنه ثابت(Const)

ماهي فائدة Type énuméré - paix144 - 02-10-2011

لتوضيح أكثر أنظر هذا المثال

كود :
uses ShellApi,TypInfo;

كود :
Type TChiffre=(Zero,One,Two,Tree,Four,Five);

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := GetEnumName(TypeInfo(TChiffre),ComboBox1.ItemIndex);
end;

ماهي فائدة Type énuméré - me_delphi - 04-10-2011

و عليكم السلام ورحمة و بركاته

إقتباس :ماهي فائدة Type énuméré فيturbo pascal اذا لا نستطيع عمل read(ln) او write(ln) او حتى اسناد قيمة لها من متغير اخر

بكل بساطة فهو ك Integer مثلا فهدا type فقط تستعمله ولا تسند له أي قيم والغاية من Type énuméré ان تنشىء Type معين خاص بك أو Type آخر غير موجود في لغة البرمجة التي تستعملها

تصور مثلا أنك ستنشأ Type قيمته تفوق قيمة Integer...!!!

ماهي فائدة Type énuméré - yassine_hell - 05-10-2011

me&delphi' كتب :تصور مثلا أنك ستنشأ Type قيمته تفوق قيمة Integer...!!!

لكن لا تتعامل معه مثلما تتعامل مع Integer

ماهي فائدة Type énuméré - me_delphi - 09-10-2011

إقتباس :program exemple32 ;
type jours=(dim, lun, mar, mer, jeu, ven, sam) ;
var today : Jours ;
begin
today := mar ;
today:=succ(today) ;
inc(today,2) ;
case today of
dim : Writeln('dimanche') ;
lun : Writeln('lundi') ;
mar : Writeln('mardi') ;
mer : Writeln('mercredi') ;
jeu : Writeln('jeudi') ;
ven : Writeln('vendredi') ;
sam : Writeln('samedi') ;
else writeln('autre, ',ord(today)) ;
end;
end.

طبق المثال أخي وستجد أنه متشابه...ابحث