Estado da tabela Editando, inserindo

procedure CheckState(ATable: TTable);

var

strMessage : String[25];

wrdMessageResult : word;

begin

ATable.UpdateRecord; { Atualiza a tabela sem gravar }

if ( ATable.Modified ) and

( ATable.State <> dsSetKey ) then

begin

if ATable.State = dsEdit then

strMessage := 'Editando registro, ';

if ATable.State = dsInsert then

strMessage := 'Inserindo registro, ';

wrdMessageResult := MessageDlg(strMessage+

'as informações que ainda não '+

'foram salvas serão perdidas!'+#10+

'Salva as informações ?', mtConfirmation,

[mbYes,mbNo,mbCancel],0);

case wrdMessageResult of

mrCancel: Abort;

mrYes : ATable.Post;

mrNo : ATable.Cancel;

end;

end

else

ATable.Cancel;

end;