noch ein problem mit meinem rechner:
ich würde gern eine fehlermeldung ausspucken, falls ich durch 0 dividiere
wie bekomm ich das mit einer if anweisung hin?
delphi rechner
-
johannes33 -
8. Oktober 2004 um 18:02
-
-
-
Hallo !
Sorry, habe Deinen Beitrag erst jetzt gesehen.
Habe nun zwei Editfelder für die Zahl 1 und die Zahl 2. Dann ein Label, in dem das Ergebnis ausgegeben wird.
Und dann habe ich vier Buttons, mit + , - , * , /
Sobald man auf einen dieser Buttons klickt, wird das Ergebnis angezeigt.Hier mein Quelltext:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
ButtonAddition: TButton;
ButtonSubtraktion: TButton;
ButtonMultiplikation: TButton;
ButtonDivision: TButton;
Label1: TLabel;
procedure ButtonSubtraktionClick(Sender: TObject);
procedure ButtonAdditionClick(Sender: TObject);
procedure ButtonMultiplikationClick(Sender: TObject);
procedure ButtonDivisionClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;var
Form1: TForm1;implementation
{$R *.DFM}
procedure TForm1.ButtonAdditionClick(Sender: TObject);
var
zahl1, zahl2, ergebnis: real;
begin
zahl1:= StrToFloat(Edit1.text);
zahl2:= StrToFloat(Edit2.text);
ergebnis:= zahl1 + zahl2;
Label1.Caption:= FloatToStr(ergebnis);
end;procedure TForm1.ButtonSubtraktionClick(Sender: TObject);
var
zahl1, zahl2, ergebnis: real;
begin
zahl1:= StrToFloat(Edit1.text);
zahl2:= StrToFloat(Edit2.text);
ergebnis:= zahl1 - zahl2;
Label1.Caption:= FloatToStr(ergebnis);
end;procedure TForm1.ButtonMultiplikationClick(Sender: TObject);
var
zahl1, zahl2, ergebnis: real;
begin
zahl1 := StrToFloat(Edit1.text);
zahl2:= StrToFloat(Edit2.text);
ergebnis:= zahl1 * zahl2;
Label1.Caption:= FloatToStr(ergebnis);
end;procedure TForm1.ButtonDivisionClick(Sender: TObject);
var
zahl1, zahl2, ergebnis: real;
begin
zahl2:= StrToFloat(Edit2.text);
if zahl2=0 then showmessage('Division durch Null')<--- Das ist die Prozedur Division durch Null
else
if zahl2 <> 0 then
begin
zahl1:= StrToFloat(Edit1.text);
zahl2:= StrToFloat(Edit2.text);
ergebnis:= zahl1 / zahl2;
Label1.Caption:= FloatToStr(ergebnis);
end;
end;end.
Viele Grüße !
Janine
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!