إعادة تحميل combobox بعد تفريغه

[paix144]

السلام عليكم
هل ممكن أن يساعدني أحد الإخوة في حل المشكل التالي
عندي هذا البرنامج(التالي في المرفقات) عندما أنقر على supprimer **** إعادة تحميل الفقرة التي محيت من valuelisteditor في combobox
و جازكم الله كل خير

[kachwahed]

وعليكم السلام ورحمة الله
حسب ما فهمت، الحل بإضافة السطر:

كود :

var ligne : integer; begin ligne :=ValueListEditor1.Row; if ligne <= ValueListEditor1.Strings.Count then begin [color=Red] ComboBox1.Items.Add(ValueListEditor1.Cells[0, ValueListEditor1.Row]);[/color] ValueListEditor1.DeleteRow(ligne); end;

اقتراح:
بخصوص برنامج أوقات الصلاة، لم لا تحاول البرمجة باستخدام OOP، مثلا تجعل الصلوات بشكل TObject، مثال للتوضيح:

PHP كود :

TSalat = class(TObject)
    FName: String;
    FTime: TTime;
    procedure SetTime(Value: TTime);
  published
    property Name: string read FName;
    property SalatTime: TTime read FTime write FTime;
  end; 


بالتوفيق.

[paix144]

السلام عليكم
بارك الله فيك خويا كاش واحد
فيما يخص إقتراحك سأعدل السورس بعد الإنتهاء من البرنامج
إن أمكن سؤال خارج الموضوع ؟لكن دئما بما يتعلق بالبرمجة

[paix144]

السلام عليكم
و في حالة إذا أردت تفريغ كل البيانات أخي؟
لقد حاولت و لكن لم أنجح

[paix144]

السلام عليكم
لقد وجدت الحل بعد محاولة أخرى
لم أكن مركز
هذا هو الكود للاستفادة

كود :

var Nbligne ,i,c : integer; begin nbligne :=ValueListEditor1.RowCount; c:=ValueListEditor1.RowCount; for i := Nbligne-1 downto 1 do begin if i<=ValueListEditor1.Strings.Count then begin ComboBox1.Items.Add(ValueListEditor1.Keys[i]); ValueListEditor1.DeleteRow(i); end; end; end;

[paix144]

أي نسيت شئ
الكود كا التا لي و ليس كما سبق

كود :

var Nbligne ,i : integer; begin nbligne :=ValueListEditor1.RowCount; for i := Nbligne-1 downto 1 do begin if i<=ValueListEditor1.Strings.Count then begin ComboBox1.Items.Add(ValueListEditor1.Keys[i]); ValueListEditor1.DeleteRow(i); end; end; end;