Delphi 6 консольное приложение TQuery DELETE

После выполнения запроса DELETE в компоненте TQuery для Delphi 6 можно использовать свойство RowsAffected, которое указывает количество измененных (удаленных) строк в базе данных.

Пример:

with Query1 do
begin
SQL.Text := 'DELETE FROM MyTable WHERE SomeColumn = SomeValue';
ExecSQL;
if RowsAffected > 0 then
Writeln('Удалено записей: ', RowsAffected)
else
Writeln('Записи не были удалены');
end;


Если количество удаленных записей больше 0, будет выведено сообщение с указанием количества удаленных записей. Если же ни одна запись не была удалена, будет выведено сообщение "Записи не были удалены".