delphi4arab منتديات دلفي للعرب - ادراج DBCombobox.Items من خلال Edit.Text

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

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

الكود:

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

;end

[attachment=4526]

كود :
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;

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

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

كود :
application.messagebox('Not Add','Add Items');

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

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

(17-08-2021, 03:46 PM)aljathmi كتب : [ -> ]ياشيخ الله يسعدك..

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

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

[صورة: 274005284.jpg]

في رقم 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 بهذا المكون يمكنك ربطه بجدولين واحد خاص بالحفظ و الثاني خاص بالقائمة

[صورة: 954137209.jpg]