[resolvido] Unsafe Type 'pchar'

[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

[Churc]

Opa

Puxe o valor do campo em uma variável... exemplo

var

s: String;

begin

s := 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 then

ouu tire o warning, ele avisa porque pode ter problemas pra puxar o valor diretamente do

campo 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

[José Luiz]

Obrigado pela dica.

Resolveu o meu problema.