Decimal tal

Du regner med integers, altså heltal, så du får problemer med f.eks. 1 / 2 fordi ½ ikke kan gemmes som en integer. Brug double eller float i stedet for integer.

Mere specifikt tror jeg at det er StrToFloat fremfor StrToInt du skal bruge.

PS: Du kan godt risikere at det skal være 0.5 og ikke 0,5

Project Project1.exe raised exception class EConvertError with message "6.' is not a valid floating point'.
Process stopped. Use Step or Run to continue.

dette svar får jeg hvis jeg sætter et punktum ind.

Så prøver du med 6,

hvis jeg laver det til at den skal lave et komma i stedet for, så laver den bare ingenting

jeg har en variable som hedder v: real;

hvordan smider jeg så Edit1.Text ned i v?
Hvis jeg siger v := StrToInt(Edit1.Text) så bliver det jo til en integer og så kan jeg ikke bruge decimaltal.

Jeg mener stadigvæk StrToFloat ...

har gjort nu... så giver mine resultater bare 0...
f.eks. hvis jeg tager 9 / 8 giver 1,125
så tager jeg det og ganger det med fx. 8 igen, så bliver resultatet 0.

ups... glemte lige at rette noget i ligmed tasten...
smid et svar... for nu virker det..!

ok

Hvis du vil sikre dig der indtastes et punktum i stedet for et komma kan du lægge en fejlmeddellelse ind hvis det ikke bliver gjort:


function real_weight_of_age(V : real) : real;
  begin
  real_weight_of_age := (2.3*V) + 7.5;
  end;

procedure TForm1.Button2Click(Sender: TObject);
var
V:real;
code:integer;
st:string;
begin
val(edit2.text,V,code);

if code <> 0 then
messagedlg ('brug punktum som . og ikke ,:' +Inttostr(code),mtwarning ,[mbok] ,0)
else
str(real_weight_of_age(V):3:1,st);
label2.caption:=st;
end;

så skal man bare gøre det modsatte med komma og punktum hvis det er ik?
for på min lommeregner skal man bruge komma og ikke punktum.