Zitat von
rhesusaffe89:
das programm läuft allerdings nicht mal, irgendein gleitkommawertfehler soll vorliegen.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
zulgesch, gefgesch, bußgeld: Double;
inort: String;
punkte, fahrverbot: Integer;
begin
case radiogroup1.itemindex of
0 : inort := 'ja';
1 : inort := 'nein';
end;
zulgesch:= StrToFloat(Edit1.Text);
gefgesch:= StrToFloat(Edit2.Text);
bußgeld:= StrToFloat(Edit3.Text);
if (gefgesch >= 50) and (gefgesch <=60) then
bußgeld:= 15;
if (gefgesch >= 60) and (gefgesch <=65) then
bußgeld:= 25;
end;
end;
end.
Hi und willkommen.
Verwende doch das nächste Mal die "Delphi"-Tags im Editor.
Hab Deine Prozedur mal überarbeitet.
Du hattest inort als Real deklariert, hast dann aber versucht eine Zeichenkette zuzuweisen.
Desweiteren nicht real sondern als Dezimaldatentyp Double verwenden.
Gruß
Michael