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