Error al convertir Edit a Integer

[[Delphius]]

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

[5TU4RT]

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


SALU2

[5TU4RT]

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...

[Casimiro Noteví]

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.

[5TU4RT]

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

SALU2

[[Caral]]

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

[5TU4RT]

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

[ecfisa]

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.

[5TU4RT]

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

[ecfisa]

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.