José Luiz Postado Maio 15, 2007 Denunciar Share Postado Maio 15, 2007 Ao Compilar o programa, algumas vezes aparece a mensagem[Warning] Inclui.pas(463): Unsafe type 'PChar'na seguinte rotina:if Application.MessageBox (PChar ( 'Telefone já registrado para a empresa : ' +ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString +' Deseja Registrar assim mesmo ?' ),' Telefone existente ' ,MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO thenA rotina funciona perfeitamente, porém aparece o aviso ao compilar. Como resolver ?Obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Maio 15, 2007 Denunciar Share Postado Maio 15, 2007 OpaPuxe o valor do campo em uma variável... exemplovars: String;begins := ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString;if Application.MessageBox (PChar ('Telefone já registrado para a empresa : ' + s + ' Deseja Registrar assim mesmo ?' ),' Telefone existente ' , MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO thenouu tire o warning, ele avisa porque pode ter problemas pra puxar o valor diretamente docampo pois isto seria dinamico e armazenando em uma variavel voce já teria o valor estático...{$WARNINGS OFF}if Application.MessageBox (PChar ( 'Telefone já registrado para a empresa : ' +ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString +' Deseja Registrar assim mesmo ?' ),' Telefone existente ' ,MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then{$WARNINGS ON}abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 José Luiz Postado Maio 16, 2007 Autor Denunciar Share Postado Maio 16, 2007 Obrigado pela dica.Resolveu o meu problema. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
José Luiz
Ao Compilar o programa, algumas vezes aparece a mensagem
[Warning] Inclui.pas(463): Unsafe type 'PChar'
na seguinte rotina:
if Application.MessageBox (
PChar ( 'Telefone já registrado para a empresa : ' +
ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString +
' Deseja Registrar assim mesmo ?' ),
' Telefone existente ' ,
MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then
A rotina funciona perfeitamente, porém aparece o aviso ao compilar.
Como resolver ?
Obrigado
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.