Ich will eine einfache Berechnung in Delphi 3 durchführen. Die eingabe erfolgt über ein Textfeld, und daraus sollen dann 2 neue Werte berechnet werden. Der Kompiler gibt leider eine 'Inkompatible Typen' Fehlermeldung aus, und zwar in der fettgedruckten Zeile. Kann mir jemand sagen, warum??
Code
unit Steuer;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
LbBrutto: TLabel;
LbSteuer: TLabel;
LbNetto: TLabel;
EdBrutto: TEdit;
EdSteuer: TEdit;
EdNetto: TEdit;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
Freibetrag=10000;
Grenze1=25000;
Grenze2=51000;
var
Brutto,
Steuer,
Netto: Real;
begin
Brutto:=StrToFloat(EdBrutto.Text);
//-------------------------------------------
if Brutto <= Freibetrag
then Steuer:= 0;
if Brutto >= Freibetrag and Grenze1 >= Brutto
[B]then Steuer:= (Brutto-10000)*5750/15000;[/B]
if Brutto >= Grenze1 and Brutto <= Grenze2
then Steuer:= 5750+(Brutto-25000)*11335/26000;
if Brutto >= Grenze2
then Steuer:= 17085+(Brutto-51000)*0,5;
Netto:= Brutto-Steuer;
//-----------------------------------------------
EdSteuer.Text := FloatToStr(steuer);
EdNetto.Text := FloatToStr(netto);
end;
end.