+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إعادة تحميل combobox بعد تفريغه (/showthread.php?tid=1550)
إعادة تحميل combobox بعد تفريغه - paix144 - 21-01-2010
السلام عليكم
هل ممكن أن يساعدني أحد الإخوة في حل المشكل التالي
عندي هذا البرنامج(التالي في المرفقات) عندما أنقر على supprimer **** إعادة تحميل الفقرة التي محيت من valuelisteditor في combobox
و جازكم الله كل خير
إعادة تحميل combobox بعد تفريغه - kachwahed - 21-01-2010
وعليكم السلام ورحمة الله
حسب ما فهمت، الحل بإضافة السطر:
كود :
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;
إعادة تحميل combobox بعد تفريغه - paix144 - 21-01-2010
السلام عليكم
بارك الله فيك خويا كاش واحد
فيما يخص إقتراحك سأعدل السورس بعد الإنتهاء من البرنامج
إن أمكن سؤال خارج الموضوع ؟لكن دئما بما يتعلق بالبرمجة
إعادة تحميل combobox بعد تفريغه - paix144 - 31-01-2010
السلام عليكم
و في حالة إذا أردت تفريغ كل البيانات أخي؟
لقد حاولت و لكن لم أنجح
إعادة تحميل combobox بعد تفريغه - paix144 - 31-01-2010
السلام عليكم
لقد وجدت الحل بعد محاولة أخرى
لم أكن مركز
هذا هو الكود للاستفادة
كود :
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;إعادة تحميل combobox بعد تفريغه - paix144 - 31-01-2010
أي نسيت شئ
الكود كا التا لي و ليس كما سبق
كود :
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;