problema con el if y el else!!

[jirbert]

bueno que les puedo decir no me he metido desde hace mucho con delphi estoy tratando hacer una llamada que recuerdo, hace mucho me funciono, resulta que ahora me da error!! a lo mejor no me he fijado bien en la redaccion y puede que algo este malo... uso delphi 6.. gracias de antemano!!

el error me da desde aqui

Código SQL [-]
else if label2.Caption='×' then

Código SQL [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin  if label1.Caption='' then;
begin  label1.Caption:=edit1.Text;
end
else if label2.Caption='×' then  
begin  label3.Caption:=edit1.Text;
end
else if label4.caption='÷' then  
begin  label5.Caption:=edit1.text;  
end  
else if label6.caption='+' then  
begin  label7.caption:=edit1.text;  
end  
else if label8.caption='-' then  
begin  
label9.caption:=edit1.text; 
end;
end;

[[Al González]]

Ah, ¿con qué tú eres el que no sangra el código?

Te faltó mencionar lo más importante a la hora de solicitar ayuda sobre un error: el mensaje de error que te aparece.

El problema que le veo a tu código (además de la falta de sangrado) es que al tener el primer If un punto y coma justo después de Then, éste queda cerrado en ese punto y por lo tanto no hay validez al colocar un Else posteriormente sin otro If de por medio.

Te sobra un punto y coma.

Saludos y a usar más la barra espaciadora (dos espacios dentro de cada Begin está bien ).

Si no, un abrazo.

Al González.

[[Lepe]]

El problema lo tienes en la segunda linea, que después del "then" se te ha escapado un punto y coma.

Por otro lado, te recomiendo un sangrado así:

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin  
  if label1.Caption='' then
  begin  
    label1.Caption:=edit1.Text;
  end
  else if label2.Caption='×' then  
  begin  
    label3.Caption:=edit1.Text;
  end
  else if label4.caption='÷' then  
    label5.Caption:=edit1.text
  else if label6.caption='+' then  
    label7.caption:=edit1.text
  else if label8.caption='-' then  
    label9.caption:=edit1.text; 
end;

Saludos