combobox do delphi7 galera preciso de ajuda

Question

GALERA � O SEGUINTE, REFERENTE AO COMBOBOX, EU ESTOU ESCREVENDO UM CADASTRO DE CLIENTE ONDE A PESSOA FISICA E JURIDICA, NO COMBOBOX EU DETERMINEI EM ITENS A LETRA (F) PARA PESSOA FISICA E (J) PARA PES...

Rafael Cunha · Answer

Implemento o Evento OnChange do ComboBox e fa�a algo parecido com o c�digo abaixo:...

Joao Vieiradossantos · Answer

USANDO O CODIGO QUE VC ME DEU QUASE FUNCIONA

procedure TFrm_clientes.DBComboBox2Change(Sender: TObject);
begin
if DBComboBox2.Items[DBComboBox2.ItemIndex]='F'then
DBeditCNPJ.Enabled:=False;
DBeditIE.Enabled:=False;
ELSE
DBeditCNPJ.Enabled:=True;
DBeditIE.Enabled:=TRUE;
END;

end.

Build
[Error] U_CLIENTES.pas(240): ';' not allowed before 'ELSE'
[Fatal Error] COMMERCE.dpr(16): Could not compile used unit 'U_CLIENTES.pas'

Rafael Cunha · Answer

N�o se utiliza ; antes de else em Delphi. Realizei as corre��es do seu c�digo abaixo:...

Alan Souza · Answer

tenta assim:...

Joao Vieiradossantos · Answer

procedure TFrm_clientes.DBComboBox2Change(Sender: TObject);
begin
if DBComboBox2.Items[DBComboBox2.ItemIndex]='F'then
begin
DBeditCNPJ.Enabled:=False;
DBeditIE.Enabled:=False;
end
else
begin
DBeditCNPJ.Enabled:=True;
DBeditIE.Enabled:=TRUE;
end;

begin
if DBComboBox2.items[DBComboBox2.ItemIndex]='J' then
begin
DBeditCPF.Enabled:=false;
DBeditRG.Enabled:=false;
DBeditTITULO.Enabled:=false;
DBeditZONA.Enabled:=false;
DBeditSECAO.Enabled:=false;
DBeditNASC.Enabled:=false;
end
else
begin
DBeditCPF.Enabled:=true;
DBeditRG.Enabled:=true;
DBeditTITULO.Enabled:=true;
DBeditZONA.Enabled:=true;
DBeditSECAO.Enabled:=true;
DBeditNASC.Enabled:=true;
end;
end;
end;

end.

amigo quero agradece-lo pela dica foi fundamental para a execu��o do me projeto desde ja agrade�o sua aten��o
muito obrigado

F�rum combobox do delphi7 galera preciso de ajuda #431128