Como fazer um application.messagebox juntando string

Delphi

30/06/2004

Tenho um problema...

Como faço pra dar a seguinte mensagem ?

codfun é uma variavel string

APPLICATION.MESSAGEBOX(´Código do funcionário (´+codfun+´) inexistente !´,´Aviso´,MB_OK+MB_WARNING);


dah erro de tipo imcompativel de string e PansiChar

Como fazer?


Marfred

Marfred

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

30/06/2004

Tente compilar seu prjeto com o modo EXTENDEDSYNTAX ativo

[b:7b000d5ef4]{$EXTENDEDSYNTAX ON}[/b:7b000d5ef4]


GOSTEI 0
Everton

Everton

30/06/2004

Colega, acrescente PCHAR( msg ).

APPLICATION.MESSAGEBOX(PCHAR(´Código do funcionário (´+codfun+´) inexistente !´),´Aviso´,MB_OK+MB_WARNING);



GOSTEI 0
Marfred

Marfred

30/06/2004

Valew !!!!

Deu certo com o PCHAR !!!

Falow !!


GOSTEI 0
POSTAR