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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم ورحمة الله تعالى وبركاته
قاعدة البيانات المستعملة absolute database
الكود المستعمل هو كالتالي

كود :
procedure TForm1.Button4Click(Sender: TObject);
begin
  with DM do
  begin
  Table1.Close;
  Table1.emptytable;
  Table1.Open;
  Table1.Refresh;
  end;
end;

الغريبة ان هذا الكود يعمل بشكل جيد
وفي بعض الأحيان يعطي رسالة خطأ
[attachment=4185]
اين المشكل جزاكم الله عنا كل خير

السلام عليكم

كود :
for i := mytable.RecordCount - 1 downto 0 do
 begin
    mytable.Delete;
 end;
 mytable.Refresh;

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

medreg

لؤي