[delphi-br] Erro NULL na Gravação

Tue, 15 Nov 2005 17:12:23 -0800 

A rotina abaixo funciona perfeitamente até o momente que o " 
Tabela.Fields[i].OldValue " encontra um valor NULL ai dá pau pq nao pode 
converter null

alguem tem uma ideia de como deve tratar este erro para ele gravar o log 
normalmente tipo campo Fulano de Tal  de Null para Pedro ????

procedure TfrmBase.GravaLog(Tabela:TClientDataSet);
vAR I : Integer;
   vsCampo,vsde,vsPara : String;
Begin
  for i := 0 to  Tabela.FieldCount -1 do
  Begin
    if Tabela.Fields[i].Tag = 0  then
      if Tabela.Fields[i].OldValue <> Tabela.Fields[i].NewValue then
      Begin
        vsCampo     :=  Tabela.Fields[i].DisplayName ;
        vsde            :=  Tabela.Fields[i].OldValue ;
        vsPara         :=  Tabela.Fields[i].NewValue ;
        UserControl.Log(Format(CAMPOALTERADO,[vsCampo,vsde,vsPara]),1);
      End;
  End;
End;

[As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a