Como faço para incluir um codigo no showmessage?

Delphi

19/07/2005

Ola amigos,

Como faço para incluir um codigo no showmessage?

Meu codigo esta assim

procedure TForm7.DBGrid1DblClick(Sender: TObject);
var
vbc: real;
begin
if application.messagebox(´Deseja excluir essa linha?´,´Aviso´,36)=idYes
then
begin
if form6.query1codigo.value = 500 then
begin
showmessage(´Esse codigo eh automatico nao pode ser excluido´);
end else
form6.query1.delete;


Entao nesse show message quero que apareça assim:

(´Esse codigo 500 eh um codigo automatico, nao pode ser excluido´);


Como eh que eu faço entao para aparecer assim?

Obrigado pela ajuda amigos
Adriano.


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Adriano_servitec

Adriano_servitec

19/07/2005

Pra ficar bem mais explicado, nao eh simplismente colocar o nr 500 dentro do showmessage, pois tenho varios codigos para ver a critica, etao quero que use o query1codigo dentro do showmessage, pode ser 500, 600 etc


Blz
Obrigado


GOSTEI 0
Nildo

Nildo

19/07/2005

procedure TForm7.DBGrid1DblClick(Sender: TObject);
var
   vbc: real;
begin
   if application.messagebox(´Deseja excluir essa linha?´,´Aviso´,36)=idYes   then
      if form6.query1codigo.value = 500 then
         showmessage(´Esse codigo ´ + Inttostr( form6.query1codigo.value ) + ´ eh automatico nao pode ser excluido´);



GOSTEI 0
Marcio.theis

Marcio.theis

19/07/2005

tente assim:

showmessage(´Esse codigo ´ + IntToStr(form6.query1codigo.value) + ´ eh um código automático, nao pode ser excluido´);


GOSTEI 0
Rjun

Rjun

19/07/2005

Crie um resourcestring desse jeito. 

resourcestring
  sMsgAviso = ´Esse codigo ¬d é um codigo automático e não pode ser excluído´;


Depois, basta fazer isso:

ShowMessage(Format(sMsgAviso, [query1Codigo]));



GOSTEI 0
Adriano_servitec

Adriano_servitec

19/07/2005

Obrigado Nildo pela atençao e ajuda.


Nao sabia como fazer o codigo, mais tive que modificar por se tratar de numero

ficou assim
showmessage(´Esse codigo ´ + floattostr (form6.query1codigo.value) + ´ eh automatico nao pode ser excluido´);

em vez de inttostr usei floattostr para nao dar erro de compilaçao

Mai uma vez obrigado tambem pela atençao Rogerio Jun, vou testar o codigo que vc me passou tambem

T+
Amigos


GOSTEI 0
POSTAR