ادراج DBCombobox.Items من خلال Edit.Text

[aljathmi]

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

السؤال كيف نمنع من تكرار ادراج ;DBComboBox1.Items.Add(Edit1.Text)

الكود:  

كود :

;procedure TForm2.Button1Click(Sender: TObject) begin ;Form1.DBComboBox1.Items.Add(Edit1.Text) ;end

  مجلد جديد (4).rar (الحجم : 5.88 ك ب / التحميلات : 27)

[larbiparadox]

كود :

if Edit1.Text <> '' then begin     if Form1.DBComboBox1.Items.IndexOf (Edit1.Text) = -1 then begin       Form1.DBComboBox1.Items.Add (Edit1.Text);     end else begin       ShowMessage('Not Add');       Edit1.text:='';       Edit1.SetFocus;     end; end;

[aljathmi]

الف شكر لك أخي larbiparadox الله يحفظك ويزيدك من العلم والفضل ومن يقرأ.

لو بغير اسم عنوان الرسالة project الى Add Items .....؟

[larbiparadox]

كود :

application.messagebox('Not Add','Add Items');

[aljathmi]

ياشيخ الله يسعدك..

بس باقي الحفظ بمجرد اغلاق التطبيق ينحذف كل شيء.

[larbiparadox]

ياشيخ الله يسعدك..

بس باقي الحفظ بمجرد اغلاق التطبيق ينحذف كل شيء.

في الفورم الاول في خصائص الاحداث نضع الكون على حسب ما هو مرقم



في رقم 1 نضع الكود التالي

كود :

var File_Path: string;   File_Path:= ExtractFilePath(Application.EXEName)+'MyItems.txt';   if FileExists(File_Path) then begin     DeleteFile(File_Path);     DBComboBox1.Items.SaveToFile(File_Path);   end else begin     DBComboBox1.Items.SaveToFile(File_Path);   end;

في هذا الكود صرحنا بمتغير إسمه File_Path من نوع نص يعطينا مسار الملف التنفيذي للمثال و أضفنا له اسم ملف النصي MyItems.txt

وبعدها قمنا بفحص هذا الملف إذا كان موجود في المسار يقوم بحذفه بواسطة الدالة DeleteFile و بعدها يحفظه على شكل ملف نصي بجانب الملف التنفيذي
و العكس اذا لم يكن موجود يحفظه مباشرة ، وهذا كله عند غلق البرنامج



في رقم 2 نضع الكود التالي

كود :

var File_Path: string;   File_Path:= ExtractFilePath(Application.EXEName)+'MyItems.txt';   if FileExists(File_Path) then begin     DBComboBox1.Items.LoadFromFile(File_Path);   end;

في هذا الكود كما ذكرنا سابقا صرحنا بمتغير إسمه File_Path من نوع نص يعطينا مسار الملف التنفيذي للمثال و أضفنا له اسم ملف النصي MyItems.txt

و بعدها يتحقق اذا وجد الملف يجلب البيانات اذا لم يجد الملف النصي لا يجلب شيء



ملاحظة : اذا كانت لديك قاعدة بيانات يمكنك يمكنك جلب القائمة من الجدول بواسطة المكون DBLookupCombo بهذا المكون يمكنك ربطه بجدولين واحد خاص بالحفظ و الثاني خاص بالقائمة