DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: ZMskyuza
今日帖子: 28
在线用户: 13
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 mingcham (ming) ▲△△△△ -
普通会员
2023/3/21 17:47:36
标题:
delphi_10.3.3全部所有for i := 0 to ComponentCount - 1 do错误和警告 浏览:820
加入我的收藏
楼主: EX8冇報錯    「請你幫幫忙!」
E2003 Undeclared identifier: 'ComponentCount'
//////////
var j, k: integer;

begin
  BeginUpdate;
  try
    for j := 0 to ComponentCount - 1 do
      with Components[j] do
        if Page = OldName then
          Page := NewName;
    j := FPages.IndexOf(NewName);
    k := FPages.IndexOf(OldName);
    if k <> -1 then
      if j = -1 then
        FPages[k] := NewName
      else
        FPages.Delete(k);
  finally
    EndUpdate;
  end;
end;

//////////
var i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i].ComponentClass = AClass then
      begin
        Result := Components[i];
        Exit;
      end;
  Result := nil;
end;
//////////

var i: integer;
begin
  AClassName := UpperCase(AClassName);
  for i := 0 to ComponentCount - 1 do
    if UpperCase(Components[i].ComponentClass.ClassName) = AClassName then
      begin
        Result := i;
        Exit;
      end;
  Result := -1;
end;
----------------------------------------------
ming
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2023/3/21 18:19:44
1楼: 贴了那么多代码,不说出错在哪一行。怎么猜?

不过我看到有 Delete,如果有这个,最好是从大到小循环,不要从小到大循环。
----------------------------------------------
-
作者:
男 mingcham (ming) ▲△△△△ -
普通会员
2023/3/21 19:24:50
2楼: for i := 0 to ComponentCount - 1 do错误和警告
----------------------------------------------
ming
作者:
男 luckyrandom (luckyrandom) ★☆☆☆☆ -
普通会员
2023/3/21 19:58:24
3楼: for i := ComponentCount - 1 downto 0 do
----------------------------------------------
SQL SERVER DBA QQ:315054403 曾经的Delphier  缘在上海
作者:
男 kaida (kaida) ★☆☆☆☆ -
盒子活跃会员
2023/3/21 19:59:34
3楼: 估计你在 uses 列表中少了 System.Classes,加上试试。
----------------------------------------------
http://down.desei.com.cn/down/1041485/MyWeb/VCLs.html
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2023/3/21 20:27:27
4楼: 既然错误提示是说没有那个东西,那就是没有。

你随便写一个单词,编译器认为它不存在嘛。
----------------------------------------------
-
作者:
男 emailx45 (emailx45) ▲▲▲▲△ -
普通会员
2023/3/22 2:15:15
5楼: RAD 11.3   --- really it's strange here too!

procedure TForm1.FormCreate(Sender: TObject);
begin
   Self.ComponentCount; // OK
   //
   //
   // ComponentCount is in "System.Classes.pas"
   ComponentCount // ok but does not exist on list...   
end;
此帖子包含附件:
GIF 图像
大小:211.5K
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
作者:
男 mingcham (ming) ▲△△△△ -
普通会员
2023/3/22 7:43:16
6楼:  emailx45 非常多謝你👍🙌非常多謝你
----------------------------------------------
ming
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行93.75毫秒 RSS