Erro na compilação

[Marcelo Marques de Lima 0]

Pessoal, estou estudando por conta própria a programação em Delphi e estou me deparando com alguns erros tipo:

[Error] UCadCliente.pas(10): Undeclared identifier: 'TForm'

[Error] UCadCliente.pas(76): '('expected but ';' found

[Error] UCadCliente.pas(115): Type of expression must be BOOLEAN

[Error] UCadCliente.pas(126): Type of expression must be BOOLEAN

[Fatal Error] Uprincipal.pas(72): Could not compile used unit 'UCadCliente.pas

[Eisenheim 67]

Olá amigo, seja bem vindo ao fórum!

[Error] UCadCliente.pas(10): Undeclared identifier: 'TForm'

Sua unit UCadCliente.pas eu imagino que seja na verdade um Form. Todo form, independente do

nome que dermos, é derivado da classe TForm. Verifique na propriedade Name, se o seu form

não ficou escrito de um jeito, e no código que descende da classe TForm, ficou de outro.

[Error] UCadCliente.pas(76): '('expected but ';' found

Toda instrução "pascal" deve ser terminada com ;

Esse erro diz que em algum lugar, você pode ter esquecido de terminar a instrução com ;

[Error] UCadCliente.pas(115): Type of expression must be BOOLEAN

[Error] UCadCliente.pas(126): Type of expression must be BOOLEAN

O erro apresentado em ambas as linhas significa que alguma variável, parâmetro ou retorno

de alguma função pode estar diferente do que ele espera.

[Fatal Error] Uprincipal.pas(72): Could not compile used unit 'UCadCliente.pas

Como a Unit UCadCliente é utilizada pela UPrincipal, enquanto houverem erros

na UCadCliente, ele não deixará compilar seu programa.

Obs: O Número que é apresentado entre parenteses em cada linha de erro, representa a linha aonde se

encontram os problemas.

Use o atalho ALT G e digite o número correspondente a linha que deseja visualizar.

[Marcelo Marques de Lima 0]

Fiz a outras alterações mas fiquei com duvida nestes erros:

 

[Error] UCadCliente.pas(115): Type of expression must be BOOLEAN

[Error] UCadCliente.pas(126): Type of expression must be BOOLEAN

 

​Pois são variáveis de tipo de cliente: "Físico ou Jurídico" sendo escolhido em um DBComboBox

 

procedure TFrmCadCliente.DBComboBxTpClienteChange(Sender: TObject);

begin

if DBComboBxTpCliente.TEXT:='Fisico' then

Begin

LbCPFCliente.Enabled:=true;

LbRGCliente.Enabled:=true;

DBEditCPFCliente.Enabled:=true;

DBEditRGCliente.Enabled:=true;

LbCnpjCliente.Enabled:=false;

LbInscEstCliente.Enabled:=false;

DBEditCnpjCliente.Enabled:=false;

DBEditInscEstCliente.Enabled:=false;

end else

if DBComboBxTpCliente.TEXT:='Juridico' then

Begin

LbCPFCliente.Enabled:=false;

LbRGCliente.Enabled:=false;

DBEditCPFCliente.Enabled:=false;

DBEditRGCliente.Enabled:=false;

LbCnpjCliente.Enabled:=true;

LbInscEstCliente.Enabled:=true;

DBEditCnpjCliente.Enabled:=true;

DBEditInscEstCliente.Enabled:=true;

end else

Begin

LbCPFCliente.Enabled:=false;

LbRGCliente.Enabled:=false;

DBEditCPFCliente.Enabled:=false;

DBEditRGCliente.Enabled:=false;

LbCnpjCliente.Enabled:=false;

LbInscEstCliente.Enabled:=false;

DBEditCnpjCliente.Enabled:=false;

DBEditInscEstCliente.Enabled:=false;

end;

end;

end.

Como seria a declaração da variável BOOLEAN deste 2 tipos de cliente:

var

Juridico : BOOLEAN;

Fisico: BOOLEAN;

 

[Ådriano 9]

Ola amigo....

O erro na minha opinião esta no dois pontos

 

if DBComboBxTpCliente.TEXT:='Fisico' then

 

Teria que ser blablabla.Text = 'Fisico1 then

 

Porque vc não usa um Radiogroup e seleviona o que quer não seria mais facil?

[Marcelo Marques de Lima 0]

Error] UCadCliente.pas(115): Type of expression must be BOOLEAN
[Error] UCadCliente.pas(126): Type of expression must be BOOLEAN

Como ficaria para declara a variável que atenda a minha necessidade...

Estou usando uma DBComboBox para escolher entre Juridico e Fisico, e conforme escolha desabilita as opções que não faça parte do tipo do cliente.

var
Juridico : BOOLEAN;
Fisico: BOOLEAN;


procedure TFrmCadCliente.DBComboBxTpClienteChange(Sender: TObject);
begin
if DBComboBxTpCliente.TEXT:= 'Fisico' then
Begin
LbCPFCliente.Enabled:=true;
LbRGCliente.Enabled:=true;
DBEditCPFCliente.Enabled:=true;
DBEditRGCliente.Enabled:=true;
LbCnpjCliente.Enabled:=false;
LbInscEstCliente.Enabled:=false;
DBEditCnpjCliente.Enabled:=false;
DBEditInscEstCliente.Enabled:=false;
end else
if DBComboBxTpCliente.TEXT:= 'Juridico' then
Begin
LbCPFCliente.Enabled:=false;
LbRGCliente.Enabled:=false;
DBEditCPFCliente.Enabled:=false;
DBEditRGCliente.Enabled:=false;
LbCnpjCliente.Enabled:=true;
LbInscEstCliente.Enabled:=true;
DBEditCnpjCliente.Enabled:=true;
DBEditInscEstCliente.Enabled:=true;
end else
Begin
LbCPFCliente.Enabled:=false;
LbRGCliente.Enabled:=false;
DBEditCPFCliente.Enabled:=false;
DBEditRGCliente.Enabled:=false;
LbCnpjCliente.Enabled:=false;
LbInscEstCliente.Enabled:=false;
DBEditCnpjCliente.Enabled:=false;
DBEditInscEstCliente.Enabled:=false;
end;

end;

end.

[Ådriano 9]

Vc tirou os dois pontos desta linha ?

 

if DBComboBxTpCliente.TEXT:= 'Fisico' then

 

e desta aki

 

if DBComboBxTpCliente.TEXT:= 'Juridico' then

 

ai vc conseguiria....estou sem o delphi aki agora.....mas acho que funciona tenta ai

[Marcelo Marques de Lima 0]

Valeu Adriano deu certo!

[Ådriano 9]

Beleza ....que bom que foi útil....não esqueça de me dar um ponto...rsrsrssr