用这么麻烦吗?为什么不用数组呢?
VAR S:ARRAY[1。。N] OF STRING
你就可以用S[1];S[2]。
VAR S:ARRAY[1。。N] OF STRING
你就可以用S[1];S[2]。
解决方案 »
- Access数据库,保存后立即读出,为什么读不到刚保存的数据!
- 怎么知道哪行是空数据的记录,谢谢
- 大虾看看这个问题
- 急急,高速转移数据,每天要把一台MSSQLSERVER服务器上的100万条左右记录转移到局域网(10M专线连接的)内的另一台MSSQLSERVER服务器(而且
- Midas中 (server)远程函数 为什么不能返回值??
- 请问一个关于抛出exception的问题
- PowerDesigner 的问题:能不能或者如何实现表结构同步而不丢失数据?
- 刚做了个程序,欢迎下载,请多提建议哦(见笑了)
- 多系统字体设置
- Delphi初学者问之一
- DBCheckBox怎么用阿
- 如何在DELPHI中使用RealSystem Producer ActiveX Control
s[1].check:=true;
s[2].check:=false;
然后为数组赋值
check[1]:=1;
check[2]:=2;
.
.
.
比如可以自定义类实现如下操作:
Items['Check1'].Checked := TRUE;
Items['Check2'].Checked := TRUE;
c:Tcheck
for x:=1 to n do
c:=(format(check%d,[x]) as Tcheck)
c:TComponent
for x:=1 to n do
c:=(format(check%d,[x]) as Tcheck)
s:array[0..n] of integer
kk:array[0..n] of string
i:integer;
begin
for i:=0 to n do
kk[i]:='check'+inttostr(s[i]);
end;