Аналитическая модель системы реального времени

[anonimka]

Выдает ошибку на 4 строке
Table:cannot perform this operation on a closed dataset
Помогите пожалуйста

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Last;
For i:=Table1.recordCount downto 1 do
Table1.Delete;
Randomize;
i:=1;
Napr1:=StrToInt(Form1.Edit1.Text);
Napr2:=StrToInt(Form1.Edit2.Text);
Napr3:=StrToInt(Form1.Edit3.Text);
Nap1:=Random(900);
Nap2:=Random(870);
Nap3:=Random(670);
Puti:=Random(672);
While (i<>Nap1) and (i<>Nap2) and (i<>Nap3) and (i<>Puti) and (i<1440)do
        begin
        i:=i+1;
        Form1.Edit5.Text:=IntToStr(i);
        Form1.Edit5.Update;
        Form1.Table1.Insert;
        Form1.DBEdit1.Text:=floatToStr(Round(i/60));
        Form1.DBEdit2.Text:=Form1.Edit1.Text;
        Form1.DBEdit3.Text:=Form1.Edit2.Text;
        Form1.DBEdit4.Text:=Form1.Edit3.Text;
        Form1.Table1.Post;
        Form1.Edit4.Text:=IntTostr(StrToInt(Form1.Edit4.Text)+random(2));
        Form1.Edit4.Update;
        Form1.DbChart1.Update;
        end;
If i=Nap1 then
        begin
        If i mod 60>=10 then Form1.Memo1.Lines.Add(IntToStr(i div 60)+':'+IntTostr(i mod 60)+' Ïîëîìêà íà ïåðâîì íàïðàâëåíèè') else Form1.Memo1.Lines.Add(IntToStr(i div 60)+':0'+IntTostr(i mod 60)+' Ïîëîìêà íà ïåðâîì íàïðàâëåíèè');
        Form2.Visible:=true;
        Form2.Label1.Caption:='Ïîëîìêà íà ïåðâîì íàïðàâëåíèè';
        Form1.Edit1.Text:='11';
        i:=i+1;
        Form1.Edit5.Text:=IntToStr(i);
        Form1.Edit5.Update;
        Form1.Table1.Insert;
        Form1.DBEdit1.Text:=floatToStr(i/60);
        Form1.DBEdit2.Text:=Form1.Edit1.Text;
        Form1.DBEdit3.Text:=Form1.Edit2.Text;
        Form1.DBEdit4.Text:=Form1.Edit3.Text;
        Form1.Table1.Post;
        Form1.Edit4.Text:=IntTostr(StrToInt(Form1.Edit4.Text)+random(2));
        Form1.Edit4.Update;
        Form1.DbChart1.Update;
        end;
If i=Nap2 then
        begin
        If i mod 60>=10 then Form1.Memo1.Lines.Add(IntToStr(i div 60)+':'+IntTostr(i mod 60)+' Ïîëîìêà íà âòîðîì íàïðàâëåíèè') else Form1.Memo1.Lines.Add(IntToStr(i div 60)+':0'+IntTostr(i mod 60)+' Ïîëîìêà íà âòîðîì íàïðàâëåíèè');
        Form2.Visible:=true;
        Form2.Label1.Caption:='Ïîëîìêà íà âòîðîì íàïðàâëåíèè';
        Form1.Edit2.Text:='7';
        i:=i+1;
        Form1.Edit5.Text:=IntToStr(i);
        Form1.Edit5.Update;
        Form1.Table1.Insert;
        Form1.DBEdit1.Text:=floatToStr(i/60);
        Form1.DBEdit2.Text:=Form1.Edit1.Text;
        Form1.DBEdit3.Text:=Form1.Edit2.Text;
        Form1.DBEdit4.Text:=Form1.Edit3.Text;
        Form1.Table1.Post;
        Form1.Edit4.Text:=IntTostr(StrToInt(Form1.Edit4.Text)+random(2));
        Form1.Edit4.Update;
        Form1.DbChart1.Update;
        end;
If i=Nap3 then
        begin
        If i mod 60>=10 then Form1.Memo1.Lines.Add(IntToStr(i div 60)+':'+IntTostr(i mod 60)+' Ïîëîìêà íà òðåòüåì íàïðàâëåíèè') else Form1.Memo1.Lines.Add(IntToStr(i div 60)+':0'+IntTostr(i mod 60)+' Ïîëîìêà íà òðåòüåì íàïðàâëåíèè');
         Form2.Visible:=true;
        Form2.Label1.Caption:='Ïîëîìêà íà òðåòüåì íàïðàâëåíèè';
        Form1.Edit3.Text:='8';
        i:=i+1;
        Form1.Edit5.Text:=IntToStr(i);
        Form1.Edit5.Update;
        Form1.Table1.Insert;
        Form1.DBEdit1.Text:=floatToStr(i/60);
        Form1.DBEdit2.Text:=Form1.Edit1.Text;
        Form1.DBEdit3.Text:=Form1.Edit2.Text;
        Form1.DBEdit4.Text:=Form1.Edit3.Text;
        Form1.Table1.Post;
        Form1.Edit4.Text:=IntTostr(StrToInt(Form1.Edit4.Text)+random(2));
        Form1.Edit4.Update;
        Form1.DbChart1.Update;
        end;
If i=Puti then
        begin
        If i mod 60>=10 then Form1.Memo1.Lines.Add(IntToStr(i div 60)+':'+IntTostr(i mod 60)+' Ïåðåáîé ýëåêòðè÷åñòâà') else Form1.Memo1.Lines.Add(IntToStr(i div 60)+':0'+IntTostr(i mod 60)+' Ïåðåáîé ýëåêòðè÷åñòâà');
        Form3.Visible:=true;
        i:=i+1;
        Form1.Edit5.Text:=IntToStr(i);
        Form1.Edit5.Update;
        Form1.Table1.Insert;
        Form1.DBEdit1.Text:=floatToStr(i/60);
        Form1.DBEdit2.Text:=Form1.Edit1.Text;
        Form1.DBEdit3.Text:=Form1.Edit2.Text;
        Form1.DBEdit4.Text:=Form1.Edit3.Text;
        Form1.Table1.Post;
        Form1.Edit4.Text:=IntTostr(StrToInt(Form1.Edit4.Text)+random(2));
        Form1.Edit4.Update;
        Form1.DbChart1.Update;
        end;
If i=1440 then Form1.Memo1.Lines.Add('Ñóòêè çàâåðøåíû');
end

[Serge_Bliznykov]

во-первых, вы текст ошибки перевести на русский не пробовали?!
Текст звучит так: "невозможно выполнить операцию на закрытом наборе данных (dataset)"
Как устранить ошибку? Правильно, нужно предварительно ОТКРЫТЬ датасет! (т.е. сделать Table1.Open; )

во-вторых, в методах таблицы есть возможность одной командой удалить сразу все записи:

Table1.EmptyTable;

TTable.EmptyTable
Deletes all records from the table.

procedure EmptyTable;

Description
The EmptyTable method deletes all records from the database table specified by the DatabaseName and TableName properties.

Note: Deletion of records can fail if the user lacks sufficient privileges to perform the delete operation.

ну и в третьих, забудьте Вы про эту антикварнут TTable! Откройте для себя ADO и запросы к БД!