UM PEQUENO GRANDE PROBLEMA

03/02/2003

2

CRIEI UMA FUNÇÃO PARA VERIFICAR SE EXISTE
MODIFICAÇÕES NO Clientdataset. Se haver a funcão ativa o botão salvar.

MAS SE USO ESTA FUNÇÃO, NA TERCEIRA VEZ QUE CRIO FORMULÁRIO DE CADASTRAMENTO É GERADO UM ERRO DE ACESSO VIOLADO.

olhem a função , o que eu estou fazendo de errado??

function ModVerify(Local: TForm; Button: TControl): Boolean;
var I,Mods: integer;
begin
{mods:= 0;
if Local <> nil then
For I:= 0 To Local.ComponentCount-1 do
if Local.Components[I].ClassType = TClientDataSet then
With Local.Components[I] As tClientDataset do
if Active then
if ChangeCount > 0 then Mods:= Mods + 1;

if Button <> nil then
Button.Enabled:= Mods > 0;

Button:=nil;
Local:= nil;

Result:= Mods > 0;
}
end;


Anonymous

Anonymous

Responder

Posts

03/02/2003

Nebrio

O que o botão Salvar faz na verdade (seu código).

E... você fez a função..sei...


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar