ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Delphi - mensagem de erro

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gabipmor
Novato
Novato


Registrado: Segunda-Feira, 30 de Junho de 2008
Mensagens: 2

MensagemEnviada: Seg Jun 30, 2008 6:41 pm    Assunto: Delphi - mensagem de erro Responder com Citação

Olá pessoal. Sou nova no fórum, n sei como funciona direito, mas preciso de ajuda com uma mensagem de erro.

A mensagem é:
[Error]Unit1.pas(90): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Ele acusa esse erro na linha do if (negrito). E aqui está a programação:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text := chr(39) + chr(39) or Edit3.Text := chr(39) + chr(39) or Edit4.Text := chr(39) + chr(39) or Edit5.Text := chr(39) + chr(39) or Edit6.Text := chr(39) + chr(39) or Edit12.Text := chr(39) + chr(39) then
showmessage ('Preencha todos os campos obrigatórios antes de prosseguir.')
else
tblContato.Append;
tblContato['COD_CCONT'] := Edit1.Text;
tblContato['NOME_CCONT'] := Edit2.Text;
tblContato['COD_CEMPR'] := Edit3.Text;
tblContato['COD_CARG'] := Edit4.Text;
tblContato['DDD_COM_CCONT'] := Edit5.Text;
tblContato['TEL_COM_CCONT'] := Edit6.Text;
tblContato['RAMAL_CCONT'] := Edit7.Text;
tblContato['DDD_CEL_CCONT'] := Edit8.Text;
tblContato['TEL_CEL_CCONT'] := Edit9.Text;
tblContato['EMAIL_CCONT'] := Edit10.Text;
tblContato['DAT_CADASTRO_CCONT'] := Edit11.Text;
tblContato['COD_SWMS'] := Edit12.Text;
tblContato['PREV_IMPL_WMS_CCONT'] := ComboBox1.Text;
tblContato['COD_SERP'] := Edit13.Text;
tblContato['COD_BANDA'] := Edit14.Text;
tblContato.Post;
tblContato.Refresh;
end;

Muito obrigada desde já!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 16262
Localização: Curitiba-PR

MensagemEnviada: Seg Jun 30, 2008 8:27 pm    Assunto: Re: Delphi - mensagem de erro Responder com Citação

gabipmor escreveu:
Olá pessoal. Sou nova no fórum, n sei como funciona direito, mas preciso de ajuda com uma mensagem de erro.

A mensagem é:
[Error]Unit1.pas(90): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Ele acusa esse erro na linha do if (negrito). E aqui está a programação:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text := chr(39) + chr(39) or Edit3.Text := chr(39) + chr(39) or Edit4.Text := chr(39) + chr(39) or Edit5.Text := chr(39) + chr(39) or Edit6.Text := chr(39) + chr(39) or Edit12.Text := chr(39) + chr(39) then
showmessage ('Preencha todos os campos obrigatórios antes de prosseguir.')
else
tblContato.Append;
tblContato['COD_CCONT'] := Edit1.Text;
tblContato['NOME_CCONT'] := Edit2.Text;
tblContato['COD_CEMPR'] := Edit3.Text;
tblContato['COD_CARG'] := Edit4.Text;
tblContato['DDD_COM_CCONT'] := Edit5.Text;
tblContato['TEL_COM_CCONT'] := Edit6.Text;
tblContato['RAMAL_CCONT'] := Edit7.Text;
tblContato['DDD_CEL_CCONT'] := Edit8.Text;
tblContato['TEL_CEL_CCONT'] := Edit9.Text;
tblContato['EMAIL_CCONT'] := Edit10.Text;
tblContato['DAT_CADASTRO_CCONT'] := Edit11.Text;
tblContato['COD_SWMS'] := Edit12.Text;
tblContato['PREV_IMPL_WMS_CCONT'] := ComboBox1.Text;
tblContato['COD_SERP'] := Edit13.Text;
tblContato['COD_BANDA'] := Edit14.Text;
tblContato.Post;
tblContato.Refresh;
end;

Muito obrigada desde já!


Olá amigo isso não existe no delphi
if Edit1.Text := chr(39) + chr(39) or Edit3.Text := chr(39) + chr(39) or Edit4.Text := chr(39) + chr(39) or Edit5.Text := chr(39) + chr(39) or Edit6.Text := chr(39) + chr(39) or Edit12.Text := chr(39) + chr(39) then

Ou trata todos edits de uma só vez num FOR assim
Código:
var
  i: integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[i].ClassName = 'TEdit' then
       if TEdit(Components[i]).Text = '' then
          MessageDlg('Preencha todos os campos antes de prossegir!', mtError, [mbOK], 0);


ou um a um se vc quiser assim

Código:
if (Edit1.Text = '') or (Edit3.Text = '') or (Edit4.Text = '') then
     MessageDlg('Preencha todos os campos antes de prossegir!', mtError, [mbOK], 0);

_________________
Meus aplicativos para Android Free.
https://play.google.com/store/apps/details?id=com.debieferandes.games.thebiblegame
https://play.google.com/store/apps/details?id=br.com.couldsys.masterdrum
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB