标签：end sum Days sunday 枚举 Result 类型 saturday

先定义一个函数：

private
    function weekday(WDays:Integer):string;

看实现部分的代码：

function TForm1.weekday(WDays: Integer): string;
type
  Tweek=(sunday,monday,tuesday,wednesday,thursday,friday,saturday);
var
  Days,NextDay:Tweek;
begin
  case WDays of
    0:Days:=sunday;
    1:Days:=monday;
    2:Days:=tuesday;
    3:Days:=wednesday;
    4:Days:=thursday;
    5:Days:=friday;
    6:Days:=saturday;
  end;
  if Days=saturday then
    NextDay:=sunday
  else
    NextDay:=succ(Days);
  case NextDay of
    sunday:Result:='sunday';
    monday:Result:='monday';
    tuesday:Result:='tuesday';
    wednesday:Result:='wednesday';
    thursday:Result:='thursday';
    friday:Result:='friday';
    saturday:Result:='saturday';

  end;
  Result:='明天是'+Result+' 呀！' ;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowMessage(weekday(StrToInt(InputBox('輸入提示框','請輸入0~6之間的任一數字： ','0'))));
end;

procedure TForm1.Button5Click(Sender: TObject);
type chars='A'..'Z';
     ints=0..9;
var
  k1,k2,k3,k4:chars;
  k5,sum:Integer;
begin
  sum:=0;
  for k1:='A'to 'Z' do
    for k2:='A'to 'Z'do
      for k3:='A'to 'Z' do
        for k4:='A' to 'Z' do
          for k5:=0 to 9 do
            sum:=sum+1;
  ShowMessage(IntToStr(sum));//4569760
end;

标签：end,sum,Days,sunday,枚举,Result,类型,saturday
来源： https://www.cnblogs.com/168-h/p/15254122.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。