filtro ´0000000000015´

Delphi

01/12/2003

Caros colegas estou tentando fazer um filtro por codigo de nota
e estou usando um edit ex:

procedure Tfrm_recepejuri.SpeedButton17Click(Sender: TObject);
begin
edit7.Text:=format(´¬12.12d´,[edit7.text]);
if edit7.Text=´´ then
showmessage(´Preencha o codigo da nota para pesquisa´)
else
if not dm.tbljuridica.Locate(´codnota´,edit7.text,[]) then
Showmessage(´Nota não encontrada´);
edit7.Text:=´´;

end;

O problema é o seguinte e que quando mando filtrar da o seguinte erro
format´¬12.12d´ invalid or incompatible with argument

Acho que deve ser a extencao do edit mas eu não sei qual usar

Se alguem puder me ajudar desde ja agradeço
denis


Denis200

Denis200

Curtidas 0

Respostas

Luizfernando777

Luizfernando777

01/12/2003

acho que é isso que vc precisa

edit7.Text:=format(´¬12.12d´,[StrToInt(edit7.text)]);


GOSTEI 0
Denis200

Denis200

01/12/2003

Luiz Fernado Valeu funcionou

obrigado pela dica


GOSTEI 0
POSTAR