Oprunding problem (trunc)

procedure TfmProfilValg.Button1Click(Sender: TObject);
var
  AntalSek : integer;
begin
  antalsek:=1;
  antalsek := StrToIntDef(Inputbox('Indskriv antal    sektioner','Heltal','1'),-1);
    if (antalsek mod 2)=0 then
    begin
      serRadius.Increment:= trunc((100 div antalsek)+0.5);
      serRadius.Value := trunc((100 div antalsek)+0.5);
    end
    else
    begin
      serRadius.Increment:= 100;
      serRadius.Value := 100;
    end;
    serRadius.MinValue := 1;  //25
    serRadius.MaxValue := 100;
end;

Kode 

procedure TfmProfilValg.Button1Click(Sender: TObject);
var
  AntalSek : integer;
begin
  antalsek:=1;
  antalsek := StrToIntDef(Inputbox('Indskriv antal    sektioner','Heltal','1'),-1);
    if (antalsek mod 2)=0 then
    begin
      serRadius.Increment:= trunc((100 div antalsek)+0.5);
      serRadius.Value := trunc((100 div antalsek)+0.5);
    end
    else
    begin
      serRadius.Increment:= 100;
      serRadius.Value := 100;
    end;
    serRadius.MinValue := 1;  //25
    serRadius.MaxValue := 100;
end;

Hej Nørden

Resultst af dit forslag:
Ved indskrivning af følgende tal:

2 Ok
3 giver kun 1 eller 100
4 Ok
5 giver kun 1 eller 100, burde værer: 20,40,60,80,100.
6 step Ok men ender på 96, burde værer 100.
7 14,28,42,56,70,84,98 burde værer 100.
8 12,24,36,48,60,72,84,96 bure værer 100.
9 11,22,33,44,55,66,77,88,99 burde være 100

Alle indskrevet mål skal deles med 100 så de går op med 100.

Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk