delphi4arab منتديات دلفي للعرب

السلام عليكم

كود :
var i: Integer
begin
  for i := Low(FVle) to High(FVle) do
    if PopValuesend.PopupComponent = FVle[i] then
    begin
  (FVLE[i].DeleteRow(FVLE[i].row ;
end;

هذه مصفوفة Tvaluelisteditor عند التشغيل Run Without Debugging يعمل بدون مشاكل
لكن عند التشغيل العادي احصل على خطأ
...(EstringListError With message List Index Out Of Bound(3
3 هو رقم السجل المراد حذفه

السلام عليكم
تحقق جيدا من السجل الذي تود حذفه حسب الخطأ تود الوصول إلى مؤشر غير موجود
إستعمل معالجة الأخطاء لتفادي مثل هاته الحالات

PHP كود :
 Try
     ... 
     The code we want to execute
     ...
   Except
     ...
     This code gets executed if an exception occurs in the above block
     ...
   end; 

وعليكم السلام, ممكن تفصل أكثر مالذي تريد إنجازه؟

لغات البرمجة تبدأ التعداد من الصفر
ربما عليك ان تعدل الكود كما يلي:
for i := Low(FVle) to High(FVle) -1 do

jeanjamil

لؤي

Ben.Ja

kerbadou