+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أحدف كل التسجيلات في جدول (/showthread.php?tid=2836)
كيف أحدف كل التسجيلات في جدول - douina - 25-02-2011
الســـلام عليكم ورحمــة الله تعــالى
كيفاحدف جميع التسجيلات في جدول ؟
استعملة الكود في الأسفل لكن لم أفلح
كود :
var
RecordPlace: TBookmark ;
begin
RecordPlace := Table1.GetBookmark;
Table1.Active:=true;
Table1.DisableControls;
Table1.First;
while not Table1.Eof Do
begin
table1.delete;
Table1.Next;
end;
Table1.EnableControls;
Table1.GotoBookmark(RecordPlace);
Edit1.text:=CurrToStr(Majmou3);
end;كيف أحدف كل التسجيلات في جدول - kachwahed - 26-02-2011
وعليكم السلام ورحمة الله وبركاته
إقتباس :table1.delete;عند حذف السجل لسنا بحاجة إلى الانتقال للسجل الموالي
Table1.Next;
أي أن الأمر Next هو الذي يسبب الخطأ
هناك أمر خاص لذلك EmptyTable ينظر
http://www.delphi4arab.net/forum/showthread.php?tid=4589
بالتوفيق.
كيف أحدف كل التسجيلات في جدول - douina - 26-02-2011
شكرا أخي الكريم