UM PEQUENO GRANDE PROBLEMA

Delphi

03/02/2003

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

Curtidas 0

Respostas

Nebrio

Nebrio

03/02/2003

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

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


GOSTEI 0
POSTAR