person = record
firstname,lastName:String;
case Citizen:Boolean of
Ture:(BirthPlace: String[40])
false:(Counter:String[20]);
end;
case 后面的字段怎么应用和怎么赋值的?
firstname,lastName:String;
case Citizen:Boolean of
Ture:(BirthPlace: String[40])
false:(Counter:String[20]);
end;
case 后面的字段怎么应用和怎么赋值的?
解决方案 »
- ado image字段问题
- 在DBGrid中,怎样才能让我能点击一个单元格选择整行,又可以编辑单元格的内容呢
- 请到VB区回答一道基础题,谢谢!50分
- 为什么我的mscomm通讯中报“variant array index out of bounds”高分送。
- 请问哪里有Install Shield 工具下载???
- 能比较一下vcl和COM的异同
- 如何在DELPHI中得到SQL-SERVER当前的日期时间
- ADO没有CachedUpdates该怎么办呢? 如果不能用缓存更新, 那么可以用什么方法代替呢?
- Delphi高手请进
- 在数据控件中修改int型的数据如23--改成 "dfsdf'结果报错!能否自己处理?
- 对多线程使用中几个问题的探讨
- 请各位帮我看看这个错误是怎么回事,求各位了
var
p : person;
begin
p.firstname := 'fsdf';
p.Citizen := true;
p.BirthPlace := 'fds';
ShowMessage(p.BirthPlace);
ShowMessage(p.Counter);
end;
ShowMessage(p.Counter);//其实这两个一样。