السلام عليكم
هل ممكن أن يساعدني أحد الإخوة في حل المشكل التالي
عندي هذا البرنامج(التالي في المرفقات) عندما أنقر على supprimer **** إعادة تحميل الفقرة التي محيت من valuelisteditor في combobox
و جازكم الله كل خير
وعليكم السلام ورحمة الله
حسب ما فهمت، الحل بإضافة السطر:
كود :
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;
السلام عليكم
بارك الله فيك خويا كاش واحد
فيما يخص إقتراحك سأعدل السورس بعد الإنتهاء من البرنامج
إن أمكن سؤال خارج الموضوع ؟لكن دئما بما يتعلق بالبرمجة
السلام عليكم
و في حالة إذا أردت تفريغ كل البيانات أخي؟
لقد حاولت و لكن لم أنجح
السلام عليكم
لقد وجدت الحل بعد محاولة أخرى
لم أكن مركز
هذا هو الكود للاستفادة
كود :
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;
أي نسيت شئ
الكود كا التا لي و ليس كما سبق
كود :
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;