输入0-6，调用自定义函数来显示英汉对照的星期
大佬们，输入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 of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
Result := WeekDayNames;
end;
这个程序通过将用户输入的文本转换为整数，然后调用自定义函数GetWeekdayName来获得相应的星期名称，并将其显示在消息框中。如果用户输入的数字不在0-6之间，则显示错误消息。
页:
[1]