Código
//no nosso exemplo fitas, e o nome do campo
wiht table1 do
edit1;//abre a tabela para edição
table1.fieldbyname('fitas').asinteger:=table1.fieldbyname('fitas').asinteger-1;
post;//grava na tabela
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009