مشكلة مع Combobox

[abdelmalek]

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

لقد واجهتني مشكلة مع ComboBox وهي :

انشائة مشروع جديد و وضعة عليه Combobox و Button1 و قمة بملئ Combobox ببعض الاسماء و اردت من هدا البرنامج عندا اختيار المستخدم اسم ويضغط على الزر تظهر له رسالة تعلمه مادا اختار وهدا الكود
الدي وضعته في الزر :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  case ComboBox1.Text of
    'Ahmad' : ShowMessage('Ahmad');
    'Yacine': ShowMessage('Yacine');
    'Mohemmad' : ShowMessage('Mohemmad');
    'Djamel' : ShowMessage('Djamel');
    'Lotfi': ShowMessage('Lotfi');
  end;
end; 


ولكنه يظهر لي رسالة خطاء فماهو الحل ؟

التجربة في المرفق

بتوفيق للجميع

[محمد عبد العزيز]

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

هذا من الاساسيات
الاسماء تكون بجدول items
الاسم المختار رقمه يكون بItemIndex
يمكن ان تكتب شيئ مثل

كود :

if ComboBox1.ItemIndex>-1 then ShowMessage(ComboBox1.Items[ComboBox1.ItemIndex]);

بالتوفيق

[TF6M]

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

- راجع طريقة كتابة الحلقات :

PHP كود :

Uses
 StrUtils;

procedure TForm1.btn1Click(Sender: TObject);
begin
   case AnsiIndexStr(cbb1.Text,['Ahmad', 'Yacine','Mohemmad']) of
    -1: ShowMessage('!!!');
     0: ShowMessage('Ahmad');
     1: ShowMessage('Yacine');
     2: ShowMessage('Mohemmad');
    //Else...
  end;
end; 


طريقة أخرى :

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
const
  NamArr: array [0..2] Of string = ('Ahmad', 'Yacine','Mohemmad');
begin
   case cbb1.ItemIndex of
    -1: ShowMessage('!!!');
     0..2: ShowMessage(NamArr[cbb1.ItemIndex]);
    //Else...
  end;
end; 


بالتوفيق,,

[kachwahed]

كود :

procedure TForm1.Button1Click(Sender: TObject); begin case ComboBox1.Text of 'Ahmad' : ShowMessage('Ahmad'); 'Yacine': ShowMessage('Yacine'); 'Mohemmad' : ShowMessage('Mohemmad'); 'Djamel' : ShowMessage('Djamel'); 'Lotfi': ShowMessage('Lotfi'); end; end;

هناك إضافة (Plugin) تجعل من ذلك وغيره ممكنا في دلفي:

كود :

http://andy.jgknet.de/dlang/

التحميل:

كود :

http://andy.jgknet.de/dlang/builds/DLangExtensions2008-11-23-1958.zip

لا أنصح بالاعتماد عليها.
بالتوفيق.

[abdelmalek]

بارك الله فيكم الله ينوركم إخواني الكرام على الردود و الحلول المتنوعة شكرا من قلبي ......

لقد قمت بتصحيح الكود وهو الان يعمل جيدا

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    -1: ShowMessage('Ahmad');
    0: ShowMessage('Yacine');
    1: ShowMessage('Djamel');
    2: ShowMessage('Mohemmad');
    3: ShowMessage('Lotfi');
  end;
end; 


بتوفيق للجميع