Не могу сделать очистку строк в таблице

[sergey113]

Есть форма в которой заношу по нажатию кнопки в таблицу massiv.dbf, вот процедура:
Form3.Table1.Append;
Form3.Table1.FieldByName('pug').Val ue:=Form3.ComboBox1.Text;
Form3.Table1.FieldByName('tech').Va lue:=Form3.ComboBox2.Text;
Form3.Table1.FieldByName('podkom'). Value:=Form3.ComboBox3.Text;
Form3.Table1.Post;

Это делаю для того чтобы в последствии сделать из строк в таблице massiv.dbf ряд вставок в други таблицы по определенному алгоритму. Но это все вступление А не получается сделать очистку всех строк в таблице при загрузке формы.... Форма загружется, а старые строки там есть. Вот код который по моему мнению долже это делать...

Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary ';
Form3.Table1.TableName:='massiv.dbf ';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
Form3.Table1.Edit;
for i:=0 to strvl-1 do begin
Form3.Table1.ClearFields;
end;
Form3.Table1.Post;

Подскажите, что за грабли ?

[Stilet]

А ты попробуй метод EmptyTable

[sergey113]

Сообщение от Stilet

А ты попробуй метод EmptyTable

что-то не получается ... говорит table cannot be opened for exllusive use
почему не понимаю, вот что пишу в коде:


Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary ';
Form3.Table1.TableName:='massiv.dbf ';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
//Form3.Table1.Edit;
for i:=0 to strvl-1 do begin
Form3.Table1.EmptyTable;
end;

[sergey113]

решил сделать очистку таким образом
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary ';
Form3.Table1.TableName:='massiv.dbf ';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
Form3.Table1.Edit;
for i:=0 to strvl-1 do begin
Form3.Table1.Delete;
end;
Form3.Table1.Post;
form3.show;
но почему-то через раз выскакивает ошибка
---------------------------
Project1
---------------------------
Table1: Dataset not in edit or insert mode.
---------------------------
ОК
---------------------------

[sergey113]

поменял код на :

Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary ';
Form3.Table1.TableName:='massiv.dbf ';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
//Form3.Table1.Edit;
for i:=0 to strvl-1 do begin
Form3.Table1.Edit;
Form3.Table1.Delete;
Form3.Table1.Post;
end;

form3.show;
end;

и ошибка выскакивает столько раз сколько строк требуется очистить ... те ошибка выскакивает при вызове delete .. но почему ? ведь я открыл набор данных на редактироание..
но что для меня самое странное что access показывает что записей после удаления нет.. а вот некоторые други е проги показывают что все раннее добавленные строки там есть .. почему так случается ?

[mihali4]

А причем тут редактирование-то?!
1 способ (был уже указан Стилетом):
Form3.Table1.Close;
Form3.Table1.EmptyTable;
Form3.Table1.Open;

2 способ (если уж приспичило именно так):
Form3.Table1.Open;
while Form3.Table1.RecordCount>0 do
Form3.Table1.Delete;

[sergey113]

Сообщение от mihali4

А причем тут редактирование-то?!
1 способ:
Form3.Table1.Close;
Form3.Table1.EmptyTable;
Form3.Table1.Open;

Работает ... большое спасибо, а делал так как написанно в учебнике Хомоненко Delphi 7 наиболее полное руководство.

Теперь все программы показыват что файл чист и размер у него как у чистого .. Большое спасибо.

[sergey113]

Что-то толко иногда глючит после внесения изменения в код программы (в разные места ) начинает ругатся Table is busy закроешь delphi откроеш обратно .. опять работает до первых изменений.. Это у меня Delphi глючит или такое бывает при каких-то еще обстоятельствах ?

[mihali4]

По-хорошему - все таблицы базы перед компилированием проекта должны быть закрыты, а в проекте предусмотрено их открытие по мере необходимости. И - закрытие их всех при закрытии программы.
Тогда BUSY если и сможет возникнуть, то только после аварийного завершения программы...

[sergey113]

спасибо... поправлю код
но ошибка возникает сразу после
Form3.Table1.EmptyTable;
даже если я пишу так
Form3.Table1.Close;
Form3.Table1.EmptyTable;
Form3.Table1.Close;
Form3.Table1.Open;

Что-то не так ...