Error al convertir Edit a Integer
 

Buenas... Estoy aprendiendo delphi y pasa que haciendo una condicion me salta un error resaltandome el "Else" pero la verdad no se porque, espero que me puedan ayudar!!!

cuando se coloca la parte else no se debe cerrar el then con ;. Si colocas ese ; el compilador lo interpreta como el fin del IF. Observa:

BIEN:

Código Delphi [-]
if (condición)
then sentencia
else sentencias;

MAL:

Código Delphi [-]
if (condicion)
then sentencia;
else sentencia;

Recuerda que cuando son 2 o más sentencias debe añadirse BEGIN-END. Naturalmente, si en el then debes colocar un begin-end a dicho end no se le debe finalizar con ; porque estarás en el mismo error.

Saludos,
PD: A estudiar la sintaxis y semántica de Pascal/Object Pascal

Muchas Gracias man, jajaja y muy efectiva tu respuesta...
me podrias elaborar un ejemplo porfavor de lo del begin-end??


SALU2

Ya arregle lo que me dijiste y me funciona muy bien...
pero ahora lo que pasa es lo siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, suma : integer;
begin
if Edit1.Text = '' then
ShowMessage('Porfavor Digite un Valor')
else
Label3.caption := ('+');
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
suma := a + b;
Edit3.Text := IntToStr(suma);
end;

Cuando el Edit1 no tiene nada y doy click al boton me sale un mensaje diciendo "porfavor digite un valor" y al darle en ok! al mensaje me aparece otro error!!!
no se porque!!!

Muchisimas Gracias...

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

Y recuerda poner los tags al código fuente, ejemplo:




Saludos.

No lo habia leido man! Muchas Gracias =...

SALU2

Hola
No dices el error que sale pero es de imaginar que la propiedad de alguno de los edits esta vacía o contiene texto.
Coloca un cero en la propiedad text de cada edit y esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, suma : integer;
begin
if Edit1.Text = '' then
begin
ShowMessage('Porfavor Digite un Valor');
Edit1.SetFocus;
end
else
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
suma := a + b;
Edit3.Text := IntToStr(suma);
end;

Saludos

le modifique: le puse el begin y el end entre el then y el else como me pusiste! tamebien edite la propiedad de texto del Edit... pero me aparece aun este mensaje...
pero por lo que se entiende del mensaje va por ahi el rollo...

( no tengo permsos para poner imagenes )
http://img17.imageshack ---->>> http://us/img17/2558/errorhw.jpg
Gracias, Salu2

Hola 5TU4RT.

Otra alternativa es:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: integer;
begin
  if TryStrToInt(Edit1.Text, a) and TryStrToInt(Edit2.Text, b) then
    Edit3.Text:= IntToStr(a+b)
  else
    ShowMessage('Error: sin datos o no se ingresó un número entero')
end;

Saludos.

esa seria una buena alternativa, pero ecfisa, hablando del c0de como yo ya lo tengo que seria lo que pasa??? porque me aparece ese error???

Muchas Gracias

Hola.

No puedo habrir el enlace. ¿Podrías copiar/pegar el mensaje de error ? (Ctrl+C para copiarlo y Ctrl+V para pegarlo aquí)

Pero pienso igual que mi amigo Caral, debe ser error de conversión...

Saludos.

me aparece ('' is not a valid integer value)

Exáctamente.

Como te dijo Caral más arriba el error es provocado por que el valor de un Edit es una cadena vacía.

Por el código que veo debe ser el valor de Edit2, deberías evaluarlo al igual que haces con Edit1:

Código Delphi [-]
  if (Edit1.Text = '')or(Edit2.Text = '') then 
  begin
    // Mensaje de error
    ...

Con TryStrToInt evitas esta excepción (además de algunas comprobaciones más que deberás hacer del otro modo)

Saludos.

Edito: Modifiqué el título original del hilo: "Ayuda con este error!!!" por otro más significativo a fín de facilitar las busquedas temáticas.

Hola 5TU4RT

Por el código que veo en los edit sólo necesitas números enteros, con esto en el evento OnKeyPress del edit evitas que se introduzcan otros caracteres:

Código Delphi [-]
procedure Form.Edit1KeyPress(Sender: TObject; var Key: Char);
var cReturn: Char;
begin
cReturn := Key;
if ((Key <  #48)  or (Key > #57)) then Key := #0;
if (cReturn = #8) then Key := #8;
end;

Espero te sirva.

Un saludo.