我觉得直接将TCheckBox对象的Checked值转换为逻辑值就行了,
为什么非要用A数组?
为什么非要用A数组?
解决方案 »
- 大家在开发新项目的时候是否开始关注Integer类型在64位编译器下的可能的问题了呢?
- 请问AdoQuery的哪个属性可以列出主键列表?
- 市面为什么没有专门讲c/s模式数据库开发的书? 不知有什么好的资料?
- 高分求DELPHI5使用水晶报表控件的资料(UP者有分答出者另加100分)!
- DELPHI疑难7问
- 请大家帮我看看这段程序~~~~~~~~
- 通过代理读取网页内容??
- 高手帮忙一delphi问题
- 如何制作横着的报表。~~~~~~~~~~~急!!!!!!!!!!!!
- Delphi与游戏的讨论,快来参加!
- tquery绑定到dbgrid问题---新手
- 如何在delphi(dbgrid)中製作類似pb下拉式數據窗口……
我觉得直接将TCheckBox对象的Checked值转换为整数值就行了,
为什么非要用A数组?
在调用A数组的时候,使用Byte(Name0.Checked)代替。
I: Integer;
vComponent: TComponent;
begin
for I := 1 to N do begin
vComponent := FindComponent('name' + IntToStr(I));
if Assinged(vComponent) and TCheckBox(vComponent).Checked then
A[I] := 1;
end;
end;
// ~~~~~~~~