[rdfx]

Есть вот такой код:

Код:

Table1.First;
while not Table1.eof do begin
if Table1.FieldbyName('Num').AsString=edit1.text then Table1.Delete;
Table1.next;
end;

Почему при выполнении он удаляет не все нужные строки в таблице? Таблицы Paradox.
Заранее спасибо

[MegaPiha]

Можно так попробовать.

Код:

Var n:integer;
begin
Table1.First;
   while not Table1.eof do
   begin
      if Table1.FieldbyName('Tip_id').asString =edit1.text then
      begin
          n:=Table1.recNo;
          Table1.Delete;
          if n<>1 then
             Table1.recNo:=n-1;
      end;
      Table1.next;
   end;

end;

[rdfx]

Вроде все работает, вот только когда в таблице остаются только те записи, которые нужно удалить (например с индексом "1"), удаляются все кроме первого. Иначе говоря, в таблице все равно остается одна запись, которая удаляется только со второго раза

[MegaPiha]

Ну тогда так.

Код:

Table1.Last;
for n:=table1.recordcount downto 1 do
begin
    if Table1.FieldbyName('Tip_id').asString =edit1.text then
       Table1.delete;
    Table1.Prior;
end;

[rdfx]

так все работает. Спасибо большое. А в чем была ошибка, вроде алгоритмы совершенно равнозначные?

[MegaPiha]

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

так все работает. Спасибо большое. А в чем была ошибка, вроде алгоритмы совершенно равнозначные?

Метод delete удаляет текущую запись и переходит на следующую запись, а в первом случае мы пишем table1.next и он опять переходит на следующую запись. Т.е. удаляем половину записей.

[K735Demon]

помоему проще всё было сделать одним SQL-запросом ...
delete from таблица t
where t.имя_поля = условие;
но как кому нравится

[MegaPiha]

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

помоему проще всё было сделать одним SQL-запросом ...
delete from таблица t
where t.имя_поля = условие;
но как кому нравится

Согласен. Но не все ищут легкие пути.
Если размер таблицы не большой то не принципиально.