[已解决]输入0-6，调用自定义函数来显示英汉对照的星期

Old.driver

大佬们，输入0-6，调用自定义函数来显示英汉对照的星期，这个程序怎么搞

最佳答案

月排行榜 / 总排行榜

元豪

2023-4-30 08:55:16

以下是使用Delphi编写的程序来输入0-6并显示英汉对照的星期：

1. 创建一个新的VCL应用程序。
2. 在窗体上添加一个TEdit控件和一个TButton控件。
3. 将TEdit控件的名字设置为Edit1，将TButton控件的名字设置为Button1，并将Button1的Caption属性设置为“显示星期”。
4. 在窗体单击事件中添加以下代码：

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3.   day: Integer;
   
4. begin
   
5.   day := StrToIntDef(Edit1.Text, -1);
   
6.   if (day >= 0) and (day <= 6) then
   
7.     ShowMessage(GetWeekdayName(day))
   
8.   else
   
9.     ShowMessage('请输入0-6之间的数字！');
   
10. end;

复制代码

5. 在窗体中添加以下自定义函数：

1. function GetWeekdayName(day: Integer): string;
   
2. const
   
3.   WeekDayNames: array[0..6] of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
   
4. begin
   
5.   Result := WeekDayNames[day];
   
6. end;

复制代码

这个程序通过将用户输入的文本转换为整数，然后调用自定义函数GetWeekdayName来获得相应的星期名称，并将其显示在消息框中。如果用户输入的数字不在0-6之间，则显示错误消息。

跳转到最佳答案楼层

元豪

以下是使用Delphi编写的程序来输入0-6并显示英汉对照的星期：

1. 创建一个新的VCL应用程序。
2. 在窗体上添加一个TEdit控件和一个TButton控件。
3. 将TEdit控件的名字设置为Edit1，将TButton控件的名字设置为Button1，并将Button1的Caption属性设置为“显示星期”。
4. 在窗体单击事件中添加以下代码：

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3.   day: Integer;
   
4. begin
   
5.   day := StrToIntDef(Edit1.Text, -1);
   
6.   if (day >= 0) and (day <= 6) then
   
7.     ShowMessage(GetWeekdayName(day))
   
8.   else
   
9.     ShowMessage('请输入0-6之间的数字！');
   
10. end;

复制代码

5. 在窗体中添加以下自定义函数：

1. function GetWeekdayName(day: Integer): string;
   
2. const
   
3.   WeekDayNames: array[0..6] of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
   
4. begin
   
5.   Result := WeekDayNames[day];
   
6. end;

复制代码

这个程序通过将用户输入的文本转换为整数，然后调用自定义函数GetWeekdayName来获得相应的星期名称，并将其显示在消息框中。如果用户输入的数字不在0-6之间，则显示错误消息。