delphi4arab منتديات دلفي للعرب - كيف يمكن حذف جدول بأكمله

أستخدمت هذين الكودين ولكن دون جدوى

PHP كود :
procedure TForm16.Button4Click(Sender: TObject);

begin


ADOQuery1.Close;
ADOQuery1.SQL.Text:='DELETE FROM calcul';
ADOQuery1.ExecSQL;
ADOTable4.Close;
ADOTable4.open;

end;

procedure TForm16.Button5Click(Sender: TObject);
var i:integer;
begin
//ADOTable4.First ;

 while not ADOTable4.Eof do
begin

    ADOTable4.First ;
    ADOTable4.Delete;

end;

end; 

هذه تعمل معي

PHP كود :
ADOTable1.First;
  while NOT ADOTable1.Eof do
  ADOTable1.Delete; 

انا أستعمل هذه و تنجح معي 100%

PHP كود :
tbl1.First;
while not(tbl1.EOF) do 
begin
tbl1.Delete;
tbl1.First;
end; 

deadc0der كتب :انا أستعمل هذه و تنجح معي 100%

PHP كود :
tbl1.first; while not(tbl1.eof) do begin tbl1.delete; tbl1.first; end;

التعليمة الأخيرة زائدة تستطيع الاستغناء عنها

أنت على حق يمكن الأستغناء عنها :p

السلام عليكم

جرب

PHP كود :
ADOQuery1.SQL.Text:='DELETE * FROM calcul'; 

بدل

PHP كود :
ADOQuery1.SQL.Text:='DELETE FROM calcul'; 

شكرا للاخوة الكرام
بارك الله فيكم جميعا igidher DeadC0der لكن لم تشتغل معي كذلك
كود مشرفنا S.FATEH أشتغل تمام شكرا لكن هل من طريقة لتسريع الحذف

السلام عليكم و رحمة الله تعالى و بركاته:
أخي يمكنك إستخدام الدالة EmptyTable

Table1.Close;
Table1.EmptyTable;
Table1.Open;

بالتوفيق

DJILANI كتب :هل من طريقة لتسريع الحذف

يمكنك تسريع البحث بهذه الطريقة

PHP كود :
Table.DisableControls;
كود الحذف 
Table.EnableControls; 