Замена записи в таблице Access через Delphi

[Alinghor]

БД Access подключена к Delphi через ODBC
Ad_little_lines это компонент Table
В таблице нет индексных полей
Часть программы

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j,sum:integer;
    f: array of Boolean; 
begin
...........
Ad_little_lines.Close; Ad_little_lines.EmptyTable; Ad_little_lines.Open;
..........
 for i:=1 to sum do begin 
...........
  Ad_little_lines.Append;   
  Ad_little_lines.FieldByName('Namber_line').AsInteger:=j;
  Ad_little_lines.FieldByName('f_line').AsBoolean:=f[j];
  Ad_little_lines.Post;
  if f[j-1]=f[j] then begin  
    j:=j-1;       
    Ad_little_lines.Edit;
    Ad_little_lines.FieldByName('Namber_line').AsInteger:=j;
    Ad_little_lines.FieldByName('f_line').AsBoolean:=f[j];
    Ad_little_lines.Post;
  end;
....
  j:=j+1;
 end;
end;

Программа должна если f[j-1]=f[j] заменять предыдущую запись в таблицу на новую. А она вместо этого добавляет новую запись.

Я попробовал оставить только запись в БД:

procedure TForm1.Button4Click(Sender: TObject);
begin
  Ad_little_lines.Insert;
  Ad_little_lines.FieldByName('Namber_line').AsInteger:=111;
  Ad_little_lines.FieldByName('f_line').AsBoolean:=true;
  Ad_little_lines.Post;
  Ad_little_lines.Edit;;
  Ad_little_lines.FieldByName('Namber_line').AsInteger:=100;
  Ad_little_lines.FieldByName('f_line').AsBoolean:=true;
  Ad_little_lines.Post;
end;

Запись 111 благополучно заменяется на 100. Не пойму в чём проблемма.

[WhiteSpirit]

После изменения

Ad_little_lines.Edit;
Ad_little_lines.FieldByName('Namber _line').AsInteger:=j;
Ad_little_lines.FieldByName('f_line ').AsBoolean:=f[j];

надо вызвать Post

Ad_little_lines.Post;

[Alinghor]

А, сори. Post есть, удалил строку случайно.
Пробовал удалять запись. Таже ерунда, отдельно работает, а в цикле нет.

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j,sum:integer;
    f: array of Boolean; 
begin
...........
Ad_little_lines.Close; Ad_little_lines.EmptyTable; Ad_little_lines.Open;
..........
 for i:=1 to sum do begin 
...........
  if f[j-1]=f[j] then begin  
    j:=j-1;       
    Ad_little_lines.Edit;
  end else begin
   Ad_little_lines.Append;   
  end;
  Ad_little_lines.FieldByName('Namber_line').AsInteger:=j;
  Ad_little_lines.FieldByName('f_line').AsBoolean:=f[j];
  Ad_little_lines.Post;
....
  j:=j+1;
 end;
end;

Сойдет?

[Alinghor]

Теперь елси например идёт 4 одинаковых f[j], то в таблице выводит 2ую и 4ую, получается 1 и 3 замещаются. Не знаю что и думать.

[Alinghor]

Сделал таблицу формата Paradox c теми же полями. Всё норм работате, даннные заменяются как надо. Но мне надо в Access

[Alinghor]

Подключил БД Access через ADO. Всё работает как надо. Всем спасибо.