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

[mihali4]

М-да-а...
Послушайте, а вам не кажется, что, например, этот кусок:

Form3.ComboBox3.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox3.Items.Add(form3.Table1.FieldByName('NOMER_KOD').AsString );
Form3.Table1.Next ;
end;
// Заполнение списка описания Подкомплектов для   Form3.ComboBox6
Form3.ComboBox6.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox6.Items.Add(form3.Table1.FieldByName('OPIS_KOD').AsString );
Form3.Table1.Next ;
end;

вполне заменяется на:

Form3.ComboBox3.Items.Clear;
Form3.Table1.Active:=False;
Form3.Table1.DatabaseName:='yantary';
Form3.Table1.TableName:='kod.dbf';
Form3.Table1.Active:=true;
strvl:=form3.Table1.RecordCount;
Form3.Table1.First ;
for i:=0 to strvl-1 do begin
Form3.ComboBox3.Items.Add(form3.Table1.FieldByName('NOMER_KOD').AsString );
Form3.ComboBox6.Items.Add(form3.Table1.FieldByName('OPIS_KOD').AsString );
Form3.Table1.Next ;
end;

Второе: зачем вы в юните Unit3, родной для Form3, все везде указываете принадлежность явно - Form3. и т.д. Это абсолютно лишнее. Когда вы из другой юниты ссылаетесь на нее (как на внешнюю) - это оправданно, а тут...
Дальше. Ну перестаньте же вставлять лишние команды! Например:

Form3.Table1.Close;
Form3.Table1.EmptyTable;
Form3.Table1.Active:=False;

Первая и последняя строка - это одно и то же! Зачем повторно пытаться закрыть уже закрытую таблицу???
У вас такая путаница в назначении имен таблиц...
Попробуйте поставить брейкпойнты на каждый EmptyTable и посмотрите, закрыта ли таблица, которую вы хотите обнулить.

ругается на любую команду после
Form3.Table1.EmptyTable;

Дайте время на выполнение очистки таблицы, хотя бы вставьте после этой строки
Application.ProcessMessages

[sergey113]

1 Код подправил... тут конечно я что-то недоглядел тупо конечно..


2 Использую полное название всегда так как мне так удобнее у меня никогда нет вопросо что и куда я присваиваю .. мне кажется это очень удобно.

3 Брекпоинты ставил .. при постановке на предыдущую строку ошибки нет .. при постановке на Form3.Table1.EmptyTable; велетает сразу...

4 постановка строки Application.ProcessMessages; ничего не дала ... ошибка повторяется...

5 Не совсем понял про названия таблиц - какая должна быть система...

[mihali4]

при постановке на Form3.Table1.EmptyTable; велетает сразу

В процессе выполнения EmptyTable?
Ну так вот же она - причина! Ставите точку останова на строку с EmptyTable, в перечень просматриваемых переменных (ALT-CTRL-W) добавляете значение переменной Table1.Active и смотрите...
Наверняка кто-то не дает закрыть таблицу перед очисткой, т.е. к моменту выполнения Table1.EmptyTable значение Table1.Active равно TRUE.
То есть вы обратились к конкретной таблице (файлу!!!) и из другой формы тоже... Таблица-файл заблокирован из другой формы!
Мой вам совет. Пользуйтесь DataModule и тогда вам будет гораздо проще обращаться к таблицам и не будет возникать путаницы и конфликтов при обращении...

Использую полное название всегда так как мне так удобнее у меня никогда нет вопросо что и куда я присваиваю .. мне кажется это очень удобно.

Ну еще раз поясню. Если нет "полного названия", значит обращение идет отсюда, из этой юниты. Например в Unit1 строка Edit1.Text:='aaa' будет означать то же, что и Form1.Edit1.Text:='aaa'. А вот в этой же юните строка Form3.Edit1.Text:='aaa' будет означать, что Edit1.Text в Form1 останется неизменным, а вот в Form3 изменится...
Из другой юниты вы "по-простому" обратиться не сможете при всем желании... Обязательно придется указать принадлежность явно.
Конечно, то, как вы делаете - это не ошибка, но... Вы хотите иметь как можно более скоростной процессор, а при этом сами замедляете свою работу внесением лишних, не несущих нагрузки, слов, фраз...

[sergey113]

Решил переписать программу как Вы сказали .. те с использованием DataModule ... Создал и вставил туда 6 table и Datasource по числу мне нужных, чтобы они всегда были true и я их закрывал когда надо а потом открывал.. закоментировал все строки и пошел править код..
и на второй же строке
strvl:=DataModule4.Table1.RecordCou nt;
такая ошибка .. что я не так делаю?
---------------------------
Project1
---------------------------
Access violation at address 004B62D5 in module 'Project1.exe'. Read of address 0000005C.
---------------------------
ОК
---------------------------

[mihali4]

Создал и вставил туда 6 table и Datasource по числу мне нужных, чтобы они всегда были true

"чтобы они всегда были true" - не понял, это про что?
Выложите-ка проект "прицепом" в архиве.

[sergey113]

Под true я иммел ввиду всегда активные .. чтоб не путатся .. а то у меня куча ошибок, мне надо все упростить.
Вот программа там две копии что у меня сейчас одна вся закоментированая (та что я сейчас пытаюсь оживить) вторая старый бекап определенной даты.

[sergey113]

я изменил названия части таблиц для большей прозрачности..
Вот они ..

[mihali4]

Вот как нужно изменить файл проекта:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};
  Unit4 in 'Unit4.pas' {DataModule4: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDataModule4, DataModule4);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

Модуль данных должен создаваться ПЕРВЫМ.
Ошибка у вас возникает из-за того, что в момент создания Form1 вы пытаетесь обратиться к еще не созданному DataModule4.
Кстати, лучше все-таки не держать открытыми таблицы, а делать так:

procedure TForm1.FormCreate(Sender: TObject);
begin
// Заполнение списков ПУГ для  Form1.ComboBox1
Form1.ComboBox1.Items.Clear;
DataModule4.Table1.Open;
strvl:=DataModule4.Table1.RecordCount;
...

[sergey113]

Спасибо за очень толковые советы ... переписал программу код уменьшился. EmptyTable все равно выдавал ошибку Table is busy пока я выполнял этот метод с Form2 (по нажатию кнопки с этой формы открываалсь Form3 и производилась очистка таблицы), как только я переместил очистку таблицы при загрузке формы 3 все стало работать нормально... теперь просто добавлю очистку при закрытии Form3 и будет все как я хотел.