Foros Club Delphi - Tipos de Datos Incompatibles?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Tipos de Datos Incompatibles? (https://www.clubdelphi.com/foros/showthread.php?t=78823)

Tipos de Datos Incompatibles?

Saludos,

Hoy he iniciado con Delphi 7
y pues he visto algunos post que me han ayudado
a familiarizarme con este lenguaje y que pues me han servido bastante
pero en esta oportunidad, quiero compartir con ustedes
una confusion que tengo.

He estado haciendo algunas pruebas y algunos
cambios pero realmente no he logrado arreglar este codigo
pueden ustedes ver algo que yo desconozco?
porque no entra a la condicion?

gracias por su apoyo
Best,
Martin

Código:

[Error] AreaRectangulo.pas(40): Incompatible types

Código:

procedure TForm1.Image2Click(Sender: TObject);

Var

  Base, Altura, Area : Word;

begin

  Base:=StrToInt(BoxBase.text);

  Altura:=StrToInt(BoxAltura.text);

  If Base > 0 and Altura > 0 Then // AQUI EL ERROR

    Begin

      Area:=Base*Altura;

      BoxArea.Text:=inttostr(Area);

    End

  Else

    Begin

      ShowMessage('Valores Incorrectos');

    End

end;

Hola...

Código Delphi [-]if (Base > 0) and (Altura > 0) then // Hay que encerrar cada condición entre paréntesis

Saludos...

Hola martini002 y bienvenido a Club Delphi :)

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Cuando en una estructura de decisición evaluas mas de una expresión lógica mediante nexos conjuntivos, disyuntivos o negativos, debes encerrar cada una de las expresiones entre paréntesis, en tu caso:

Código Delphi [-]   If (Base > 0) and (Altura > 0) Then

Otro ejemplo:

Código Delphi [-]  if (a > b) or ( (b < c) and (d > 15) ) then

Saludos.

Edito: Ups! me colgué con un llamado y no ví tu mensaje maeyanes, disculpas. :o

Excelente,

increible como no pude ver eso,
inclusive lo llegue a pensar y coloque los parentesis
pero en al conjunto completo, :D
muchas gracias por la ayuda,
de seguro volvere a consultarles algo muy pronto
espero contribuir en algo tambien a la comunidad

Best,
Martin