+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف (/showthread.php?tid=9237)
كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف - jeanjamil - 16-03-2018
السلام عليكم
احاول انشاء برنامج بدون قاعدة بيانات لكن واجهتني مشكلة انه
لدي 2 listbox واحدة للصنف والثانية للسعر
كيف احذف بند السعر من الثانية في حال تم حذف الصنف من الاولى
علما ان ترتيب البنود قد يختلف بين اللائحتين
وشكرا
RE: كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف - AX302 - 16-03-2018
السلام عليكم
برنامج بدون قاعدة بيانات مجرد هدر للوقت هدا ان كنت تريد ان تعمل برنامج يعتمد على قاعدة بيانات , بخصوص الليست بوكس عند القيام بحدف سعر ما او صنف معين انت تقوم بحدفه مؤقتا فقا اي فقط وقت التشغيل عند اعادة تشغيل البرنامج يتم اعادة البيانات كما كانت في الفترة الاولى (باستثناء انك تعتمد على ملفات خارجية للحفظ)
RE: كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف - jeanjamil - 17-03-2018
شكرا لك
لكنه برنامج صغير الحجم لا يحتاج الى قاعدة بيانات فهو يحتوي فقط على على سجلات مؤقتة
فعلا يمكن ان استعيض عن الييست بوكس بvaluelisteditor لكن كيف يتم جمع ناتج عمود
RE: كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف - mobile - 17-03-2018
السلام عليكم ورحمة الله
كما قال لك الاخ استعمل قاعدة بيانات خفيفة مثل sqlite هي سهلة خفيفة لن تتعبك ولن تحملها على ظهرك
وان كان لابد ان تستعمل Valuelistditor
هاك مثال عن حساب عمود ال key & value
كود :
//0 for key;
//1 for value;
procedure TForm2.Button1Click(Sender: TObject);
var i,x,y :Integer;
begin
x:=0;y:=0;
for i :=1 to ValueListEditor1.RowCount-1 do
begin
x:=x+StrToInt(ValueListEditor1.Cells[1,i]);
y:=y+StrToInt(ValueListEditor1.Cells[0,i]);
end;
Edit1.Text:=IntToStr(y);
Edit2.Text:=IntToStr(x);
end;RE: كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف - ferrero - 18-03-2018
كود :
var
i,Sum: Integer;
begin
Sum := 0;
for i := 0 to ListBox1.Items.Count - 1 do
Sum := Sum + StrToInt(ListBox1.Items[i]);
Edit1.Text := IntToStr(Sum);RE: كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف - Delphi4Us - 20-03-2018
يمكنك استخدام ملف XML او INI او حتى TXT اذا رغبت بدل من قاعدة بيانات