Dúvida Básica Sobre Condições

[Guest Leomar]

Estou fazendo um programa bem simples de teste de lógica, e tenho 5 combobox que precisam ter valores diferentes.

Toda vez que mudo o texto de algum Combo, preciso verificar se ele é diferente dos demais e apertar o Button1, quer tenha ou não outro Combo com mesmo valor.

Eu tinha colocado o comando Button.click apenas depois do último else, mas percebi que fazendo isto, ele só precionava o botão se o L5C1 tivesse o mesmo texto.

Então fiz o seguinte, mas ficou pior, onde estou errando?:

procedure TForm1.L1C1Change(Sender: TObject);

begin

if

(L1C1.Text=L2C1.Text)Then(L2C1.Text:='')else

Button1.Click;

if

(L1C1.Text=L3C1.Text)Then(L3C1.Text:='')else

Button1.Click;

if

(L1C1.Text=L4C1.Text)Then(L4C1.Text:='')else

Button1.Click;

if

(L1C1.Text=L5C1.Text)Then(L5C1.Text:='')else

Button1.Click;

end;

[Guest Leomar]

Desculpe a perda de tempo, acho que já reparei meu erro, vejam se abaixo está certo:

procedure TForm1.L1C1Change(Sender: TObject);

begin

if

(L1C1.Text=L2C1.Text)Then(L2C1.Text:='')else

if

(L1C1.Text=L3C1.Text)Then(L3C1.Text:='')else

if

(L1C1.Text=L4C1.Text)Then(L4C1.Text:='')else

if

(L1C1.Text=L5C1.Text)Then(L5C1.Text:='');

Button1.Click;

end;

[Micheus]

tenho 5 combobox que precisam ter valores diferentes.

Leomar, isto posto, parece que você deveria testar todos os combobox entre si, não? você está testando apenas o 1º com os demais.

[]s