25-02-2011, 11:30 PM
الســـلام عليكم ورحمــة الله تعــالى
كيفاحدف جميع التسجيلات في جدول ؟
استعملة الكود في الأسفل لكن لم أفلح
كيفاحدف جميع التسجيلات في جدول ؟
استعملة الكود في الأسفل لكن لم أفلح
كود :
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;