Huhu mal wieder
Heute hänge ich an folgender Aufgabe:
Undzwar ich habe ein Editfeld in dem ich meine Grösse angeben soll. dadrunter sind 2 radiobuttons mit denen ich Mann oder Frau auswähle. So dies ist eine Aufgabe aus der Schule
also net wundern ;P
So nun mit if-strukturen ist das ja ganz einfach zu machen aber nun habe ich die aufgabe das mit einer function zu machen. Das ja auch noch alles einfach jedoch hänge ich an der Aufgabe mit Boolean zu arbeiten. Ich soll eine Zahl und eine bollsche Variable übergeben doch das will net recht
function rech(groesse:integer; b:boolean):integer;
var faktor,egross,ergebnis:integer; a:boolean;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
egross:=strtoint(edit1.text);
if radiobutton1.checked then a:=true ;
if radiobutton2.checked then a:=false;
ergebnis:=rech(egross,a);
label1.caption:=inttostr(ergebnis);
end;
function Tform1.rech(groesse:integer; b:boolean):integer;
begin
if b= true then result:= (groesse-100)*0.9 ; // So hier merkert er *
if b=false then result:=(groesse-100)*0.85;
end;
*E2010 Inkompatible Typen'Integer' und 'Extended' oO
was denn Extended?
Wenn mir jemand helfen kann vielen dank
mfg basti