Taschenrechner 2.0 - Der Multi-Rechner

[LDProgrammierer]

OK endlich habe ich es geschafft ich habe aber den folgenden Code verwendet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c : Real;
begin
a:= strtofloat(edit1.Text);
b:= strtofloat(edit2.Text);
c:= a/b;
if b = 0 then ShowMessage('Durch NULL darf nicht dividiert werden!') else
begin
 c:= a/b;
Edit3.Text := floattostr(c);
end;

end;

end.

[himitsu]

Das c:= a/b; vor der IF-Abfrage ist wohl noch zuviel.

[DeddyH]

Jepp, erst zu teilen und dann erst nachzuschauen, ob das überhaupt geht, ist wenig zielführend

[aurikel_Max]

Ein kleiner Tipp vielleicht noch am Rande. Mir ist in deinem Quellcode aufgefallen, dass du die "Names" der verschiedenen Objekte nicht änderst (zB. Button1, Edit1) .. damit alles übersichtlicher wird, könntest Namen vergeben, anhand derer man die Funktionen erkennt, also zB.: btCalc anstatt Button1.