小于50个mdi子窗口,每个自窗口可能重名,可能不重名,把不重名的提到一个string数组,如下:
//找第一个自窗口
nMax:=-1;
for i:=0 to 50 do
begin
if (WatchChild[i]<>nil) then
begin
sDif[0]:=WatchChild[i].Caption;
nMax:=0;
break;
end;
end;
if nMax<0 then
exit;
//把不同名的放到sDif数组
for i:=0 to 50 do
begin
if WatchChild[i]<>nil then
begin
//下面错了!!!!!!!
if not (WatchChild[i].Caption in [sDif[0]..sDif[50]]) then
begin
nMax := nMax + 1;
sDif[nMax]:= WatchChild[i].Caption;
end;
end;
end;
我该怎么解决。WatchChild[i].Caption 是中文的,有其他方法吗?
//找第一个自窗口
nMax:=-1;
for i:=0 to 50 do
begin
if (WatchChild[i]<>nil) then
begin
sDif[0]:=WatchChild[i].Caption;
nMax:=0;
break;
end;
end;
if nMax<0 then
exit;
//把不同名的放到sDif数组
for i:=0 to 50 do
begin
if WatchChild[i]<>nil then
begin
//下面错了!!!!!!!
if not (WatchChild[i].Caption in [sDif[0]..sDif[50]]) then
begin
nMax := nMax + 1;
sDif[nMax]:= WatchChild[i].Caption;
end;
end;
end;
我该怎么解决。WatchChild[i].Caption 是中文的,有其他方法吗?
解决方案 »
- 函数专函问题
- TADODataSet数据集访问
- 为什么MDI子窗口不能在主窗口mainform的oncreate事件中建立和打开?
- adoconnection的连接数据源的字符串中能否删除WSID=MING这一项?
- 点击checkbox也不会改变他的checked属性值,该如何实现-在线等待!
- 【求助】TADOConnection.Create(Self) 编译时报"Undeclared identifier:'Self'" 这是怎么回事啊? 谢谢
- 使用internetexpress开发web应用,在浏览器中只显示框架,没有数据有几种原因?
- 在d5的quickreport中使用代码在一个band中建立一个qrlabel.谢谢
- Delphi 中Romulam 是什么?(100分请求答案)
- (三层)Access查询中WHERE子句中如何指定“按位与”运算
- 介绍一个免费下载电影的网址...
- 请问DUNIT怎么用?
找到就Add進去!然後, 你的想找重復的, 就
indexOf 就可解決你的
>>我该怎么解决。WatchChild[i].Caption 是中文的,有其他方法吗?
for i:=0 to 50 do
begin
if WatchChild[i]<>nil then
begin
for j:=0 to nMax do
if WatchChild[i].Caption=sDif[j] then
begin
has:=true;
break;
end;
if not has then
begin
nMax := nMax + 1;
sDif[nMax]:= WatchChild[i].Caption;
end;
end;
end;
end;