Spørgsmål vedr. regning med kommatal

BER := StrToFloat(Edit2.Text);
HK := Ceil((BER * Error)/100);

Arne_v: Jeg har prøvet men får fejlen: Project1.exe raised exception class EConvertError with message "0.001'is not a valid floating point value'. Jeg kan se at funktionen ceil runder op til nærmeste heltal...Er der en funktion som runder op hvis det første tal efter komma er >= 5 og ned hvis der er < 5?

Er der kommer noget snavs ind i Edit2.Text (bogstavet O
i.s.f. tallet 0 eller lignende) ?

Fordi umiddelbart virker 0.001 nemlig OK !

Jeg mener at den funktion hedder Round(x).

Men så er der jo også gode gamle Trunc(x + 0.5) som naturligvis stadig virker !

I glemmer at Delphi vil have , og ikke . når den til regne med decimaler ;)

procedure TForm1.Button1Click(Sender: TObject);
var
  Error, HK: Integer;
  BER: Extended;
  tmpstr: String;
begin
  Error := 500;
  tmpstr := Edit2.Text;
  If Pos('.',tmpstr) <> -1 Then
    tmpstr := StringReplace(tmpstr,'.',',',[rfReplaceAll]);
  BER := StrToFloat(tmpstr);  // Edit2.Text := '0.001'
  HK := Round((BER * Error)/100); // resultat ønskes rundet op til nærmeste heltal
  ShowMessage(IntToStr(HK));
end;

Snowball

Linien Error := 500; skal du nok lige fjerne. Det var bare lige så den havde en værdi i mit eksempel ;)

Snowball

I Danmark bruger I "," som Decimal Separator, mens man herover i England (og stort set resten af verden) bruger vi "." som Decimal Separator!!! ;))

Det vil sige at naar du koder i Delphi bruger du ALTID "." da det er standard for computeren - men naar du indtaster tal i eventuelt en Edit (naar dit program kore - runtime!) bruger du den decimal separator som der benyttes af det sprog som din Windows er sat op til (I Danmark er det altsaa et ",")...

Ah - det forklarer jo sagen med '.' versus ',' !

Jeg takker de herrer...Jeg må sige snowball, dine svar er ret gode, virkede med det samme, da jeg skiftede punktum ud med et komma, som zerohero så fint forklarer :-)...