Fórum Como faço para exibir um campo do Paradox no MessageBox ? #177794
27/08/2003
0
Preciso exibir um campo A (alpha) da minha tabela Paradox em um MessageBox, só que está ocorrendo um erro dizendo que ele não é um PChar. Veja a linha de código que estou utilizando:
Application.MessageBox(´Verifique a Manutenção do Veículo ´+Table1.FieldByName(´Veículo´).AsString),MB_OK + MB_ICONEXCLAMATION);
Já com o ShowMessage ele é exibido sem erro:
ShowMessage(´Verifique a Manutenção do Veículo ´+Table1.FieldByName(´Veículo´).AsString);
Alguem pode me ajudar a exibir essa mensagem com o MessageBox ???
Rubensgalvanijr
Curtir tópico
+ 0Posts
27/08/2003
Imoreira
Fiz essa função para você:
function Mensagem(cMsg: string): boolean;
begin
Mensagem := (application.messagebox(PChar(cMsg),´Atenção´,MB_OK+MB_ICONEXCLAMATION) = IDOK);
end;
Utilize-a assim:
mensagem(´Verifique a manutenção do veículo: ´+table1.fieldbyname(´nome´).asstring);
Gostei + 0
27/08/2003
Rubensgalvanijr
Sua função resolveu meu problema e me ajudou bastante.
Gostei + 0
27/08/2003
Dgpires
Application.MessageBox(PChar(´Verifique a Manutenção do Veículo ´ + Table1.FieldByName(´Veículo´).AsString)),MB_OK + MB_ICONEXCLAMATION);
Gostei + 0
27/08/2003
Rubensgalvanijr
agora ficou mais simples ainda.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)