Necesito Ayuda Formula General

[thebest07]

ola amigos, muchas gracias por poner de su parte para k pudiera hacer este programa, bueno aki esta el codigo:

 
procedure Tfrmecuacion.cmdcalcularClick(Sender: TObject);
  var
  a,b,c: Integer;
  x1,x2,r: Real;
  begin
   a := StrToInt(txta.Text);
   b := StrToInt(txtb.Text);
   c := StrToInt(txtc.Text);
   r := b*b-4*a*c;
   x1:= (-b+ Sqrt(r))/2*a;
   x2:= (-b- Sqrt(r))/2*a;
  begin
   txtres1.Text := floattostr(x1);
   txtres2.text := floattostr(x2);

     end;
  end;

Ahora lo k kiero es hacer k a no sea igual a cero(0) y si es asi me tire un mensaje....diciendome que el primer valor no puede ser igual a Cero..

gracias...

[[duilioisola]]

Para mostrar mensajes puedes utilizar la función ShowMessage(msg);

Para comprobaciones tienes las sentencias if..then..else.

Código Delphi [-]
if (a=b) then
   ShowMessage('a y b son iguales')
else
   ShowMessage('a es diferente de b');

Si tienes más de un comando debes encerrarlos en bloque begin..end

Código Delphi [-]
if (a=b) then
begin
   ShowMessage('a y b son iguales');
   a := 0;
   b := 0;
end
else
begin
   ShowMessage('a es diferente de b');
   if (a>b) then
      ShowMessage('a es mayor que b')
   else
      ShowMessage('a es menor que b');      
end;

[thebest07]

Empezado por duilioisola

Para mostrar mensajes puedes utilizar la función ShowMessage(msg);

Para comprobaciones tienes las sentencias if..then..else.

Código Delphi [-]if (a=b) then
ShowMessage('a y b son iguales')
else
ShowMessage('a es diferente de b');




Si tienes más de un comando debes encerrarlos en bloque begin..end

Código Delphi [-]if (a=b) then
begin
ShowMessage('a y b son iguales');
a := 0;
b := 0;
end
else
begin
ShowMessage('a es diferente de b');
if (a>b) then
ShowMessage('a es mayor que b')
else
ShowMessage('a es menor que b');
end;

Muchas gracias compañero... esto me sirbe mucho de ayuda.... Gracias,,...