DELPHI逻辑百分之几

var
  dim:  TStringList;
  Numcount: array[1..16] of integer;
  i,Num:  Integer;
  percent:  Extended;
begin
  dim:= TStringList.Create;
  dim.DelimitedText:= Memo1.Text;             //将数字串放入stringlist
  dim.Delimiter:= ' ';
  percent := 100 / dim.Count;                  //计算百分比基数
  Num :=0;

  for i := 1 to High(NumCount) do              //初始化计数器
  begin
    Numcount[i]:=0;
  end;

  for i := 0 to dim.Count-1 do                 //计算数字出现个数
  begin
    Num:= StrToInt(dim.Strings[i]);
    if (Num > 16)or (Num < 1 )  then
     Exit;
    Inc(Numcount[Num]);
  end;

  for i := 1 to High(Numcount) do
  begin
    Memo1.Lines.Add(Format('%d出现%d次，出现几率%.2f%%',[i,NumCount[i],percent*Numcount[i]]));   //输出结果
  end;

  dim.Free;
end;