见笑!

[fff888]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
thisday:(sunday,monday,tuesday,wednesday,thurday,friday,saturday);

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
thisday:=edit1.text

label1.Caption :='ok'
end;

end.
我第一次用DELPHI还没摸到头绪，这个短短几句的小东西到底那出错了

[enlightenment]

thisday:(sunday,monday,tuesday,wednesday,thurday,friday,saturday);

thisday为枚举类型，非字符串，

ShowMessage(IntToStr(Ord(sunday)));


将显示“0”，所以用 case 吧！

[ghz2000]

错在
thisday:=edit1.text
类型不匹配

[Kingron]

不需要用Case：如果Edit中是数字的话，可以用类型强制转换：
type
TThisDay=(sunday,monday,tuesday,wednesday,thurday,friday,saturday);
var
thisday:tthisday;
...
thisday:=tthisday(strtoint(edit1.text));

[Apollo47]

thisday:=edit1.text; 语句出错，类型不匹配。
thisday 是枚举类型，而 Edit1.Text 是字符串类型。
若你非要这么做，用 Kingron(ＷｉｎＡＰＩ) 的方法吧。