Table1.Delete;
Для Добавления поля процедуру:
procedure TForm1.AddField(Sender: TObject;Fam, Nam, Gr, Pass, Logn: String; BRDay: TDateTime);
begin
with Sender as TTable do
begin
Append;
FieldByName('Fam').AsString:=Fam;
FieldByName('Name').AsString:=Nam;
FieldByName('Gr').AsString:=Gr;
FieldByName('Pass').AsString:=Pass;
FieldByName('Logn').AsString:=Logn;
FieldByName('BRDay').AsDateTime:=BRDay;
Post;
end;
end;
Вся проблема в том,что пусть в таблице было 5 полей,мы их все удалили.Далее мы добавляем поле с помощью приведенной процедуры.После добавления поля его индекс становиться равным 6 (хотя в таблице отображается всего одно поле) хотя теоретически должно стать рравным 1.Помогите сделать его таковым.