Auf einen standartisierten Wert aufrunden

[Grishnak]

Delphi-Quellcode:

var
  StdWidst: array [0..23] of integer = (10, 11, 12, 13, 15 ... 91);

oder

Delphi-Quellcode:

var
  StdWidst: array [0..23] of integer;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  StdWidst[0]:=10;
  StdWidst[1]:=11;
  StdWidst[2]:=12;

...

  StdWidst[23]:=91;
end;