简单的算法如何做才方便

Question

假设有数0.96一包数。要分成10包，
0..9、10..19，..左后一包是90..96
如何做最简洁?

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  for i := 0 to 9 do
  begin
    Memo1.Lines.add(IntToStr(i) + ':');
  end;
  for i := Low(aTest) to High(aTest) do
  begin
    Memo1.Lines.Strings[aTest[i] div 10]
      := Memo1.Lines.Strings[aTest[i] div 10]
      + ',' + IntToStr(aTest[i]);
  end;
end;
//aTest中存着你要求的那些数字，在memo中输出对应的数据，应该能满足你的要求