for i:=0 to gbGroupMain.ControlCount-1 do
begin
if not gbGroupMain.Controls[i].ClassNameIs('TcxButton') then
begin
gbGroupMain.Controls[i].ShowHint:=true;
if gbGroupMain.Controls[i].ClassNameIs('TcxTextEdit') then
begin
j:= (gbGroupMain.Controls[i] as TcxTextEdit).MaxLength;
gbGroupMain.Controls[i].Hint:='最多可输入'+inttostr(j)+'字符';
end;
end; end;
出错说 unknown identifier MaxLength
begin
if not gbGroupMain.Controls[i].ClassNameIs('TcxButton') then
begin
gbGroupMain.Controls[i].ShowHint:=true;
if gbGroupMain.Controls[i].ClassNameIs('TcxTextEdit') then
begin
j:= (gbGroupMain.Controls[i] as TcxTextEdit).MaxLength;
gbGroupMain.Controls[i].Hint:='最多可输入'+inttostr(j)+'字符';
end;
end; end;
出错说 unknown identifier MaxLength
如果改为 (gbGroupMain.Controls[i] as TEdit).MaxLength ,就不报错,但是值不对。