Показать сообщение отдельно
  #2  
Старый 10.04.2008, 10:57
MegaPiha MegaPiha вне форума
Активный
 
Регистрация: 24.03.2008
Сообщения: 227
Версия Delphi: Delphi 7
Репутация: 30
По умолчанию

Можно так попробовать.
Код:
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;
Ответить с цитированием