erro de try pq?

Question

Gostaria de saber pq essa minha condicao que fiz entre Try e Except esta dando errado. ele traz a mensagem 2 vezes quando da certo e quando da errado , gostaria de trazer apenas quando estive na condi...

Massuda · Answer

[quote:085ddf9bdf=�ciotti�]ele traz a mensagem 2 vezes quando da certo e quando da errado...[/quote:085ddf9bdf]N�o entendi o �2 vezes�... explique melhor isso....

Ciotti · Answer

ENTAO AMIGO CASO MEUS 2 CAMPOS NAO FOREM PREENCHIDOS GOSTARIA QUE O TRY TRATASE ESSE ERRO EM VEZ DE USAR O TERMO
ELSE.

ENTAO USEI O TRY E EXCEPT MAS NAO FUNCIONOU PQ ELE NAO ESTA TRATANDO ESSE ERRO.

VALEW CARA.

Ciotti · Answer

Gostaria de saber pq essa minha condicao que fiz entre Try e Except esta dando errado. ele traz a mensagem 2 vezes quando da certo e quando da errado , gostaria de trazer apenas quando estive na condicacao de errado obviamente.

valew gente mais uma vez

var vtotal,vmedia : Currency;
begin
try
vtotal:= StrToCurr(Edit1.Text);
vmedia := StrToCurr(Edit2.text);
ClientDataSet1.Edit;
ClientDataSet1.FieldByName(�TOTAL_VENDA_TOTAL�).AsCurrency := vmedia;
ClientDataSet1.FieldByName(�MEDIA_VENDA_TOTAL�).AsCurrency := vtotal;
ClientDataSet1.FieldByName(�DATA_PESQUISA�).AsDateTime := DateTimePicker1.Date;
ClientDataSet1.Append;
ShowMessage(�Registro gravado com sucesso�);
Except
ShowMessage(�Erro de grava�ao!!�);
end;
end;

Truck1n · Answer

cara,
O try s� vai tratar o erro se o clientdataset reclamar como ele nao reclama ele faz todo o procedimento.

var
  vtotal,vmedia : Currency;
begin
  try
    vtotal:= StrToCurr(Edit1.Text);
    vmedia := StrToCurr(Edit2.text);
    ClientDataSet1.Edit;
    ClientDataSet1.FieldByName(�TOTAL_VENDA_TOTAL�).AsCurrency := vmedia;
    ClientDataSet1.FieldByName(�MEDIA_VENDA_TOTAL�).AsCurrency := vtotal;
    ClientDataSet1.FieldByName(�DATA_PESQUISA�).AsDateTime := DateTimePicker1.Date;
    ClientDataSet1.Append;
    ShowMessage(�Registro gravado com sucesso�);
  Except
    ShowMessage(�Erro de grava�ao!!�);
  end;

Tratamento de Erros:

  try

  except

  end;

espero ter ajudado!

Emerson Nascimento · Answer

.Edit e .Append ???n�o deveria ser .Edit e .Post ?!?!?de qualquer forma, � melhor voc� fazer o tratamento do erro no evento OnReconcileError do clientedataset....

Truck1n · Answer

[quote:d1cf2ee744=�emerson.en�].Edit e .Append ???n�o deveria ser .Edit e .Post ?!?!?de qualquer forma, � melhor voc� fazer o tratamento do erro no evento OnReconcileError do clientedataset.[/quote:d1cf2ee744]eu tbm vi isso ae! UAHehEAiuuEAhuEIA mas blz!! vamos ver se ele responde!flw Emerson!...

F�rum erro de try pq? #335991