已定义一记录类型:如type
day=(sunday,monday,....);
myrecord=record
weekday:day;
end;
var
newrec:myrecord;
with newrec do
begin
newrec.weekday:=sunday;
end;
这样是正确的,但是,如果改面下面的就不对了,
with newrec do
begin
newrec.weekday:=edit1.text;
end;
提示:类型不兼容。请问如何将edit值赋给weekday呢?
day=(sunday,monday,....);
myrecord=record
weekday:day;
end;
var
newrec:myrecord;
with newrec do
begin
newrec.weekday:=sunday;
end;
这样是正确的,但是,如果改面下面的就不对了,
with newrec do
begin
newrec.weekday:=edit1.text;
end;
提示:类型不兼容。请问如何将edit值赋给weekday呢?
解决方案 »
- constructor; overload 分别(SB菜鸟,急急求解)
- ****求对PDF(ActiveX)接口的操作函数!!***(问题没解决,工作保不住了!..55555..)
- 哪里可以下codesite3.0?
- 如何通过代码连接数据库?
- 请问如何在文件点击的右键菜单中加入我自定义的菜单项
- 为什么程序退出时总提示ACCESS VIOLATION 。。?大侠救命啊
- 怎么调试以下两个错误?
- 欢迎光临:http://vip.6to23.com/zgj67,有你寻找已久的...
- 哪里能下载到reportmachine软件:谢谢!
- 你到底在哪里?,“睡在我上铺的兄弟”?
- 如何把把DBgrid前6行的内容插入到一个新的表(我用的是access数据)中
- 组件开发的问题研究,很基础但也很重要
var
newrec:myrecord;
begin
with newrec do
begin
newrec.weekday:=Day(GetEnumValue(TypeInfo(day),Edit1.Text));
end;
Label1.Caption:=GetEnumName(TypeInfo(day),integer(newrec.weekday));
end;