盒子论坛 v2.1

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;

此帖子包含附件:

大小: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

信息

登陆以后才能回复