[已解决]输入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. 在窗体单击事件中添加以下代码：

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

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

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

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

跳转到最佳答案楼层

元豪

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

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

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

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

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

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