| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
ricfernandes
Novato
Registrado: Quarta-Feira, 2 de Setembro de 2009
Mensagens: 58
|
 Enviada: Qua Set 16, 2009 3:40 pm Assunto: Pesquisar com erro |
 |
|
procedure TForm8.BitBtn1Click(Sender: TObject);
var
Nome:integer;
begin
Nome:=0;
if InputQuery('Procurar','Número do Ofício',Nome) then
if not Table1Informacao.Locate ('Numero',Nome,[loCaseInsensitive, loPartialKey ]) then
ShowMessage('Ofício Não Encontrado');
end;
Esta dando erro no 1 if porque? |
|
| Voltar ao Topo |
|
 |
temuchin
Profissional
Registrado: Segunda-Feira, 12 de Dezembro de 2005
Mensagens: 584
Localização: Marte
|
| Enviada: Qua Set 16, 2009 3:54 pm Assunto: |
|
|
Oi
O problema é que Nome precisa ser uma string e você está utilizando como integer. Troque para string que funciona.
Abraço
_________________
A santidade dos pobres é invenção dos ricos
if ( topico.resolvido = true ) then begin
titulo.caption := topico.titulo + ' [RESOLVIDO] ';
end; |
|
| Voltar ao Topo |
|
|
ricfernandes
Novato
Registrado: Quarta-Feira, 2 de Setembro de 2009
Mensagens: 58
|
| Enviada: Qua Set 16, 2009 4:11 pm Assunto: |
|
|
| temuchin escreveu: | Oi
O problema é que Nome precisa ser uma string e você está utilizando como integer. Troque para string que funciona.
Abraço |
Opa tranquilo amigo
obrigado ja pela ajuda, ja fiz isso resolve o problema mais ou menos,
quando abre a caixa de pesquisa se vc deixar em branco e aperta OK ela da erro , estou fazendo a pesquisa de um campo autoincre
valeu ae |
|
| Voltar ao Topo |
|
|
temuchin
Profissional
Registrado: Segunda-Feira, 12 de Dezembro de 2005
Mensagens: 584
Localização: Marte
|
| Enviada: Qua Set 16, 2009 4:28 pm Assunto: |
|
|
Oi
Você pode obrigar a digitação no campo:
| Código: |
procedure TForm8.BitBtn1Click(Sender: TObject);
var
Nome : string;
begin
Nome := '0';
if InputQuery('Procurar','Número do Ofício',Nome) then begin
try
strToInt( Nome );
if not Table1Informacao.Locate ('Numero',Nome,[loCaseInsensitive, loPartialKey ]) then begin
showMessage('Ofício Não Encontrado');
end;
except
on e: exception do begin
showMessage( 'Digite um valor inteiro para pesquisa.' );
end;
end;
end;
end;
|
Veja se este código te ajuda...
Abraço
_________________
A santidade dos pobres é invenção dos ricos
if ( topico.resolvido = true ) then begin
titulo.caption := topico.titulo + ' [RESOLVIDO] ';
end; |
|
| Voltar ao Topo |
|
|
ricfernandes
Novato
Registrado: Quarta-Feira, 2 de Setembro de 2009
Mensagens: 58
|
| Enviada: Qua Set 16, 2009 5:25 pm Assunto: |
|
|
| temuchin escreveu: | Oi
Você pode obrigar a digitação no campo:
| Código: |
procedure TForm8.BitBtn1Click(Sender: TObject);
var
Nome : string;
begin
Nome := '0';
if InputQuery('Procurar','Número do Ofício',Nome) then begin
try
strToInt( Nome );
if not Table1Informacao.Locate ('Numero',Nome,[loCaseInsensitive, loPartialKey ]) then begin
showMessage('Ofício Não Encontrado');
end;
except
on e: exception do begin
showMessage( 'Digite um valor inteiro para pesquisa.' );
end;
end;
end;
end;
|
Veja se este código te ajuda...
Abraço |
Amigo Obrigado mesmo pela ajuda
Funcionou legal
agradeço desde já!
Ricardo |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
