Como corrigir esse codigo???
Estou usando o codigo abaixo pra localizar aproximadamente o codigo que eu quero, só que quando eu apago o codigo ele me da uma mensagem de erro mais ou menos assim:
numero inteiro não valido o que fazer para corrigir???
FRMCADFALTA.ADOTABLE1.Locate(´codigo´,strtoint(EDIT1.Text),[LOPARTIALKEY]);
numero inteiro não valido o que fazer para corrigir???
FRMCADFALTA.ADOTABLE1.Locate(´codigo´,strtoint(EDIT1.Text),[LOPARTIALKEY]);
Cláudiogyn
Curtidas 0
Respostas
Wwenceslau
17/09/2003
Fácil colega... ou você usa um try.. except, ou você verifica o edit antes de fazer...
Try
......///seu código aqui...
Except
on EConvertError
Showmessage(´Informe o valor para pesquisa´);
end;
ou
If Length(Edit.text) <> 0 then
......///seu código aqui...
A primeira opção é mais aconselhável, pois você pode controlar qualquer tipo de erro de converção, tipo: Ponto flutuante com separador errado, espaço em branco, etc...
Espero ter ajudado....
Wanderley
Try
......///seu código aqui...
Except
on EConvertError
Showmessage(´Informe o valor para pesquisa´);
end;
ou
If Length(Edit.text) <> 0 then
......///seu código aqui...
A primeira opção é mais aconselhável, pois você pode controlar qualquer tipo de erro de converção, tipo: Ponto flutuante com separador errado, espaço em branco, etc...
Espero ter ajudado....
Wanderley
GOSTEI 0
Centopocento
17/09/2003
Claudio,
Isto é um erro de conversão de String para Integer em lugar de ´STRToInt´ use ´STRToIntDef´, que aceita um valor Default se ocorrer erro de conversão. Veja como fica o código
FRMCADFALTA.ADOTABLE1.Locate(´codigo´,STRToIntDef(EDIT1.Text,0),[LOPARTIALKEY]);
Com isso nunca ocorrerá um erro.
T+
Edgar
Isto é um erro de conversão de String para Integer em lugar de ´STRToInt´ use ´STRToIntDef´, que aceita um valor Default se ocorrer erro de conversão. Veja como fica o código
FRMCADFALTA.ADOTABLE1.Locate(´codigo´,STRToIntDef(EDIT1.Text,0),[LOPARTIALKEY]);
Com isso nunca ocorrerá um erro.
T+
Edgar
GOSTEI 0