Declaracion If --- Then

[[Lepe]]

Caral, si funciona no lo toques, así de simple.

Si quieres optimizarlo, tocaría rehacer todo. Saber qué estas haciendo y buscar alternativas.

Yo no cambiaría los textos por Itemindex como han propuesto, es un lio total....
"Seleccionado el ItemIndex 3 y eso ¿era sumar o restar?, en el código tengo puesto un comentario diciendo que es sumar, pero el comentario está equivocado porque copié y pegué......"

El caso es que no entiendo nada de nada.....

Código Delphi [-]
If Edit7.Text <> Edit8.Text Then
 Label6.Color:= CLRed;
 Label6.Caption:= 'X';
 If Edit7.Text = Edit8.Text Then
 Label6.Color:= CLLime;
 Label6.Caption:= 'OK';

Según está ese código, si Edit7 tiene algo distinto al Edit8, las lineas a ejecutar son:

Código Delphi [-]
 Label6.Color:= CLRed;
 Label6.Caption:= 'X';
 Label6.Caption:= 'OK';

Es decir, se queda con el color rojo y diciendo "OK", porque no hay bloques begin ... end dentro de los "if" y por tatnto, si un "if" se cumple, solo ejecuta la siguiente sentencia que haya (aunque con el identado que haces quieras decir otra cosa).

Creo que lo correcto sería:

Código Delphi [-]
If Edit7.Text <> Edit8.Text Then
begin
 Label6.Color:= CLRed;
 Label6.Caption:= 'X';
end
else
begin
 Label6.Color:= CLLime;
 Label6.Caption:= 'OK';
end