怎么将这段BCB代码用DELPHI实现？在线等~~~~~~~~~~~``

[lanyahu]

for (int i=0;i<this->ComponentCount;i++)
{
if (dynamic_cast<TdxEdit*>(Components[i]))
((TdxEdit*)Components[i])->Clear();
}

怎么将这段BCB代码用DELPHI实现？

[乡野村夫卍宸昊]

i:integer;

for i:=0 to [objectname].ComponentCount do
if ((dynamic_cast<^TdxEdit) and (^TdxEdit>Components[i]))
(TdxEdit.Components[i]).Clear;

[dev_uoboy]

看了楼上的翻译觉得奇怪,delphi也有dynamic_cast???

[huangrenguang]

var
i:Integer;
begin
for i:= 0 to Self.CoponentCount - 1 do
begin
if TdxEdit(Components[i]) then
begin
TdxEdit(Components[i]).Clear();
end;
end;
end;

[lanyahu]

objectname 这个是TEDIT

i:integer;

for i:=0 to TEDIT.ComponentCount do
if ((dynamic_cast<^TEdit) and (^TEdit>Components[i]))
(TEdit.Components[i]).Clear;
**** 报错****

[huangrenguang]

var
i:Integer;
begin
for i:= 0 to Self.CoponentCount - 1 do
begin
if Self.Components[i].ClassName = 'TdxEdit' then
begin
TdxEdit(Self.Components[i])).Clear();
end;
end;
end;

[dev_uoboy]

var
i:Integer;
begin
for i:= 0 to Self.ComponentCount-1 do
if TdxEdit(Components[i]) then
TdxEdit(Components[i]).Clear();
end;

我也来试试