
10.04.2008, 10:57
|
Активный
|
|
Регистрация: 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;
|