appication messagebox

[ricardosoares1rj 0]

Olá Pessoal bom dia a todos

 

Eu to com o seguinte problema, eu to colocando variaveis do tipo inteiro na messagebox, mas fazendo a conversão pra string sendo que quando eu compilo o aplicativo recebo a mensagem de que não há sobrecarga para o argumento intTostr

tem como resolver isso?

vlw pessoal

[Chrnos 30]

Sua dúvida está meio confusa. Coloque o código que está usando para montar sua mensagem e o erro retornado.

[ricardosoares1rj 0]

Application.MessageBox('deseja substituir estrutura?'

+inttostr(DM_Importacao.qry_Busca_ProgEstruturaESTRUTURAMATERIALID.Value)

+'Quantidade: '+inttostr(DM_Importacao.qry_Busca_ProgEstruturaQuantidade),'Sistema', MB_YESNO + MB_ICONQUESTION)

[Chrnos 30]

Qual o tipo de retorno do campo DM_Importacao.qry_Busca_ProgEstruturaQuantidade? Não faltou passar o value? Exatamente o que é esse campo? Uma query? Uma variável??

[ricardosoares1rj 0]

é que esse trecho ai eu acrescentei no forum mesmo esqueci de colocar, mas ele é um campo de uma query

[Chrnos 30]

Primeiramente, você tem certeza que todos os campos onde está usando conversão já não estão sendo recebidos como string? Faça o seguinte teste:

 

Crie uma variável do tipo string e jogue nela a montagem da sua frase.

Depois use esta variável para montar seu messageBox.

 

procedure XXXXX
var sMensagem : String;
begin
....
try
sMensagem := 'deseja substituir estrutura?' +inttostr(DM_Importacao.qry_Busca_ProgEstruturaESTRUTURAMATERIALID.Value)
					  +'Quantidade: '+inttostr(DM_Importacao.qry_Busca_ProgEstruturaQuantidade);
except
showmessage ('Ops.... tem algum valor informado que está inconsistente!');
exit; //Força a sair da rotina
end;
Application.MessageBox(sMensagem,'Sistema', MB_YESNO + MB_ICONQUESTION);
...
end;

O ideal é por um breakpoint durante a execução e ver os valores trazidos pelas variáveis.... é mais fácil de detectar os erros assim.

 

[]'s

[DarkDucke 0]

Tente assim

 

if MessageBox(0,'deseja substituir estrutura?',  Pchar( inttostr(DM_Importacao.qry_Busca_ProgEstruturaESTRUTURAMATERIALID.Value) + 
'Quantidade: '+ inttostr(DM_Importacao.qry_Busca_ProgEstruturaQuantidade.value)), 4+32+8192) <> 6 then
Exit;